(print((#/2
(3(?=.4))?|TH.*ED
/(port->string(current-input-port)))))