4.4BSD/usr/src/usr.bin/pascal/USD.doc/sin2.p
program sinout(output); begin write(sin('*')); end.