swap around <~ and ~>, and move a couple of combinators from Strategies.hs to Pattern.hs