\ Taken from http://rosettacode.org 
\ 4tH version 2010, Hans Bezemer

: multiplication
  2 spaces  13 2 do i 4 .r loop
  cr
  13 2 do
    cr i 2 .r
    13 2 do
      i j < if 4 spaces else i j * 4 .r then
    loop
  loop ;

multiplication cr