import "JavaBuiltin" as Java

sort p@(a,b) | Java.icmpgt a b = (b,a)
             | True            = p
               
main = sort (sort (2 :: Integer,1 :: Integer))
--
(1,2)