1;; (begin #f (print $name) (print $line) #t) 2"abc" 32 4"efg" 53 6;; (begin #t (print $name) (print $line) #f) 7"abc" 82 9"efg" 103 11;; (begin #t (print $name) (print $line) (eq? $name "efg")) 12"abc" 132 14"efg" 153 16;; (begin #t (and (eq? $name "abc") (print $name) (print $line)) (eq? $name "efg")) 17"abc" 182 19;; (begin0 #t (print $name) (print $line) #f) 20"abc" 212 22"efg" 233 24;; (begin0 #f (print $name) (print $line) #t) 25"abc" 262 27"efg" 283 29;; (begin0 (eq? $name "abc") (print $name) (print $line) #t) 30"abc" 312 32"efg" 333 34;; (begin0 (eq? $name "abc") (and (eq? $name "efg") (print $name) (print $line)) #t) 35"efg" 363 37