let val aa = turn(a) in let val c = aa in sew(c,c) end end