; leftpad

(define (leftpad str len ch)
  (let loop ((n (- len (string-length str)))
             (prefix (list)))
    (if (positive? n)
        (loop (- n 1) (cons ch prefix))
        (string-append (list->string prefix) str))))

(display (leftpad "hello" 7 #\@)) (newline)