changed pick-up-fish function to multiple-value-prog1.