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