impc:ti:sprintln2   scheme

(define impc:ti:sprintln2
  (lambda (ast)
    (if (null? ast)
        (String "")
        `(memzone 1024
           (cat
            ,@(map (lambda (x)
                     (if (string? x)
                         `(let ((xx_t_mst:i8* (salloc 1024)))
                            (sprintf xx_t_mst "%s" ,x)
                            (String xx_t_mst))
                         (list 'toString x)))
                   ast))))))