m@main=do l<-getLine;putStrLn$([sum$0.5<$l..9]>>" ")++l;m