$<.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 top