4.1cBSD/usr/doc/pascal/sin2.p
program sinout(output); begin write(sin('*')); end.