$<.map{|n|a=$$*24 n=Math.cos n.to_f-a*Math::PI/2while 0<a/=2 puts"%f"%n}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page