t n []=[] t n l=take n l++"\n"++t(n+1)(drop n l) main=interact$t 1.filter(`notElem`" \n\t")