Added p83.rkt
revised