ção.
-- Normalmente, em outras linguagens, a avaliação é estrita (não lazy), e da 
-- esquerda para a direita.

lazy x y | x > 0 = x
         | otherwise = y

loop x = loop x

res5 = lazy 5 (loop 1)
resloop1 = lazy (loop 1) 5
resloop2 = lazy
lazy x y | x > 0 = x
         | otherwise = y
lazy x y | x > 0 = x
         | otherwise = y