: insert-at* ( this-seq into-seq at* -- newseq )
     cut* swapd 3append ;
     
: zero-string ( length -- string )
    10^ number>string 1 tail ;