(var pad-num (comp str (pad-left " " 4)))

(join "\n"
  (for y (range 1 13)
    (... str "x" (pad-num y)
      (for x (range 1 13)
        (if (> y x)
            "    "
            (pad-num (* x y)))))))