for($n=<>;$_<6.28;$_+=6.2832/$n){print+($l=sprintf"%.0f %.0f
",$<*cos,$<*sin)=~s/-0/0/r}