allPossibleProductsAboveFifty firstList secondList = [x * y | x <- firstList, y <- secondList, x * y > 50]
allPossibleProductsAboveFifty firstList secondList = [x * y | x <- firstList, y <- secondList, x * y > 50]
allPossibleProductsAboveFifty firstList secondList = [x * y | x <- firstList, y <- secondList, x * y > 50]