r=readLn f g=do n<-r;mapM id$g<$[1..n] main=f(f r)>>=mapM(\c->putStr$c:[' '|c<'0']).show