import Data.Bits
import Data.Int
main = mapM(putStr)$concat[concat[replicate(31-x)" ",map(\y->if(complement$x).&.y>0then" ."else" A")[0..x],["\n"]]|x<-[0..31]]