g 80="4 20"
g n=show n
f n|n<17=[g n|n>0]|d<-mod n$10+div n 60*10=g(n-d):f d
main=mapM(putStrLn.unwords.f)[1..100]