euklides :: Int -> Int -> Int
euklides a b
        | b == 0 = a
        | otherwise = euklides b (modulo a b)

modulo :: Int -> Int -> Int
modulo a b
        | a > b  = modulo (a - b) b
        | a == b = 0
        | otherwise = a

unzipper :: (Int,Int) -> Int
unzipper (a,b)
        |otherwise  =  euklides a b


x=[1..1000]
y=[1..1000]

cartProd xs ys = [(x,y) | x <- xs, y<-ys]

z = cartProd x  y

main = do
        let zp= zip z (map unzipper z)
        print (   zp  )