f 0="0";f n='[':f(n-1)++"]";m@main=readLn>>=putStrLn.f>>m