UNB/ CS/ David Bremner/ programming team/ test2.rkt 
#lang htdp/asl

(with-input-from-file