print uc($"x$_.X|$"x$a--.X),$/for 0..($a=<>-1)