m@main=readLn>>=(f"0"!!)>>m
f x=putStrLn x:f('[':x++"]")