main=interact$unlines.foldl(#)["a"].zip['b'..]
x#(l,'>')=map(++[l])x
m#(l,_)=m++[m!!0>>[l]]