[Haskell-cafe] foldr1 min [(maxBound::Int)%1,1 % 2]