Paste: "runtime" printf

: runtime-printf ( seq format-string -- )
    parse-printf reverse!
    [ first dup string? [ '[ _ write ] ] [ '[ unclip-slice @ write ] ] if ] map
    compose-all call( x -- x ) drop ;