Instead of matching a pair recommend 'let'

[Kakadu]

match scru with 
| (a,b) -> rhs

into

let (a,b) = scru in rhs