reverseClass :: String -> String
reverseClass c = case c of
                    "t" -> "b"
                    _ -> "t"
reverseClass :: String -> String
reverseClass c = case c of
                    "t" -> "b"
                    _ -> "t"
reverseClass c = case c of
                    "t" -> "b"
                    _ -> "t"