to mult.table :n
  type "|  | for [i 2 :n] [type form :i 4 0] (print)
  (print)
  for [i 2 :n] [
    type form :i 2 0
    for [j 2 :n] [
      type ifelse :i > :j ["|    |] [form :i*:j 4 0]
    ]
    (print)
  ]
end

mult.table 12