definedBaseTypes :: String -> Bool  
definedBaseTypes x = (x == "Int" || x == "Char" || x == "Bool")
definedBaseTypes :: String -> Bool
definedBaseTypes x = (x == "Int" || x == "Char" || x == "Bool")
definedBaseTypes x = (x == "Int" || x == "Char" || x == "Bool")