sizedSalesDomain :: Int -> [Row]
sizedSalesDomain size = do
  key <- [0 .. size]
  [Order key 2, LineItem key 20]
sizedSalesDomain :: Int -> [Row]
sizedSalesDomain size = do
  key <- [0 .. size]
  [Order key 2, LineItem key 20]
sizedSalesDomain size = do
  key <- [0 .. size]
  [Order key 2, LineItem key 20]