[ 3 + dup 3 ** + 2 / ] is magicconstant ( n --> n )

  20 times [ i^ magicconstant echo sp ] cr cr

  1000 magicconstant echo cr cr

  0 1
  [ over magicconstant over > if
      [ over 3 + echo cr
        10 * ]
    dip 1+
    [ 10 21 ** ] constant
    over = until ]
  2drop