REBOL[]r: do input repeat x r[repeat y max x r - x + 1[prin either x = y or(r - x + 1 = y)["X"][" "]]print""]