main=getLine>>=(0%)
x%s=putStrLn(until((>' ').last)init$do w<-words s;c<-w++" ";max" "[c|length w>x])>>(x+1)%s