main=interact(>>= \c->mapM(:".#\n")"  "!!read['0','x',c])