SICP bhw1 5.4B work completed