Added p71.rkt
cleaned up procedure
added p72