coin :: Int coin = 0 coin = 1 g = (x,x) where x = coin f = (coin,coin) main = f