\ Original program by David Ahl, Creative Computing, 1978
\ 4tH version by J.L. Bezemer, 2010,2012

include lib/math.4th

false 160 0 do
  i 10k * 4 / (sin) 25 * 26 10k * + 10k / spaces
  dup if ." J.L. Bezemer" else ." 4tH compiler " then 0= cr
loop
