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])
Note that non-ascii characters in the above source code will be escaped (such as \x9f).