This double loop will produce the desired ordered pairs

pairs lst1 lst2 = do
   x <- lst1
   do
      y <- lst2
      return (x,y)