u=unlines
s=show
main=putStr$u(s<$>[1..16])++"10"#[7..9]++u[s i!j|i<-[20,30..60],j<-[0..9]]++"60"#[10..16]++"60 10"#[7..9]++"4 20"#[0..16]++"4 20 10"#[7..9]++"100"
a#b=u((a!)<$>b)
i!j=i++(last$"":[" "++s j|j>0])