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