import Data.List
import Data.Ord
main=mapM putStrLn$sortBy(comparing(\x->sum[1|'1'<-x]))$mapM(\_->"10")[1..8]