2BSD/doc/pascal/sin2.p
program sinout(output); begin write(sin('*')); end.