(load "load_proj4a.scm")

print sum 2 3
print sentence word "now "here last [the invisible man]
print bf 104
print sum bf 123 10
print sum product 3 4 8
print equalp 4 5
print 3 print 4
bye


(define x (make-line-obj '(a b)))

(ask x 'put-back 'b)

(ask x 'next)

(ask x 'empty?)


(logo-type '(1 (2 3)))