f x|x<1=[]|x`mod`100<17=[x]|x>79=[4,20]++f(x-80)|x>59=[60]++f(x-60)|1>0=[x-x`mod`10]++f(x`mod`10)
main=mapM(putStrLn.unwords.map show.f)[1..100]