let fun x(y) = let val z = turn(b) in sew(y,z) end in x(b) end