printPair.hs (261B)
1 double = (2*) 2 halve = (/2) 3 4 doubleTen = double 10 5 halfTen = halve 10 6 7 printFirst a = putStr (show (fst a)) 8 printSecond a = putStr (show (snd a)) 9 printPair a = putStr "(" >> printFirst a >> putStr ", " >> printSecond a >> putStr ")\n" 10 11 main = printPair (10, 20)