dva = [ x1 * 10 + x2 |
        x1 <- [1..9] , x2 <- [0..9] , x1 == x2 * 2 ]

main = do
   print $ dva
   print $ product dva