positivoNegativo :: Int -> String positivoNegativo a | a > 0 = "positivo" | a < 0 = "negativo" | otherwise = "neutro" main = do print( positivoNegativo 2 )