lt-core/lt-stdlib/stdio.lt

export {
    /* output nullterminated string directly from datastack
     */
    let print-nullterm =
        λ{} : < Seq  Char~Ascii~machine.Word >
            ~ < NullTerminatedArray machine.Word >
        ↦ {
            while(dup) { emit; }
            drop;
        };
}