> show g | Just n = number g = Just (show n) > | Just n = fraction g = Just (show n) > | Just n = nimber g = Just ("*"++show n) > | Nothing = Nothing These should be "Just n <- number g", not "=" - Hal