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

[UNDEFINED] place-n [IF]               ( src len dest n -- )
: place-n 0 over c! 0 ?do >r 2dup r@ +place r> loop drop 2drop ;
[THEN]                                 \ hahahahaha
\ 256 string test s" ha" test 5 place-n test count type  cr
