[ ' [ 0 ]
    swap 1 - times
      [ dup behead swap find
        1+ 2dup swap found *
        swap join ]
    reverse ]                is van-eck ( n --> [ )

    10 van-eck echo cr
  1000 van-eck -10 split echo drop