(%stdin) (r) file dup token pop /a exch def token pop /p exch def
(%stdout) (w) file /o exch def
/t -.01 def
p 2 mul 
{ 
  t sin a mul a add .9999 mul cvi 1 add { o ( ) writestring } repeat 
  o (*\n) writestring
  /t t 360 p div add def
} repeat