(define impc:ti:pfill! (lambda (ast) (append '(begin) (map (lambda (arg idx) (list 'pset! (car ast) idx arg)) (cdr ast) (make-list-with-proc (length ast) (lambda (i) i))))))