print uc($"x$i++.X|$"x~$_.X),$/for-<>..-1