Search exec-path for fortune strfile program

* lisp/play/fortune.el (fortune-compile): Search exec-path for
strfile program (bug#33984).

Copyright-paperwork-exempt: yes
1 job for master in 90 minutes and 3 seconds (queued for 3 seconds)
Status Job ID Name Coverage
  Test
failed #2474
test-all

01:30:03

 
Name Stage Failure
failed
test-all Test The script exceeded the maximum execution time set for the job
  GEN      lisp/international/ccl-tests.log
ELC lisp/international/mule-tests.elc
GEN lisp/international/mule-tests.log
ELC lisp/international/mule-util-tests.elc
GEN lisp/international/mule-util-tests.log
ELC lisp/international/ucs-normalize-tests.elc
GEN lisp/international/ucs-normalize-tests.log
Pulling docker image gitlab/gitlab-runner-helper:x86_64-f100a208 ...
ERROR: Job failed: execution took longer than 1h30m0s seconds