: ** ( nb np -- nb*np )
    over 0= if ( nb np )
        2drop 1 ( 1 )
      else     ( nb np )
        1 swap ( nb 1 np )
        0 do ( nb 1 ) over * loop
        nip
      then ;