As a response to a comment in your code: xor :: Bool -> Bool -> Bool xor = (/=) Look forward to type classes which let you define the various shapes and lig

As a response to a comment in your code: xor :: Bool -> Bool -> Bool xor = (/=) Look forward to type classes which let you define the various shapes and lights as instances of Shape and Light!