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