m@main=do x<-readLn;putStrLn.take 8.show$foldr(#)x"sscccscccssssscscc"+5e-7;m
's'#x=sin x
_#x=cos x