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