m@main=do x<-readLn;putStrLn.take 8.show$foldr(#)x"sscccscccssssscscc"+5e-7;m 's'#x=sin x _#x=cos x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page