dupLinear : (1 x : a) -> (a, a)
dupLinear x = dup (let var = 22 in x)