[ 1 rot times
      [ i 1+ *
        dip [ over step ] ]
    nip ]                   is m! ( n --> n! )

  5 times
    [ i^ 1+ 10 times
      [ i^ 1+ over m!
        echo sp ]
      drop cr ]