% This is my first program in New Little Quilt

let val aa =
C = sew(b,turn(a));
while ( C != b)
        do
                C = tlRow(C);
if ( C != EQ) then
                C = hdCol(C);
        fi;
        od;
result turn(C);
in 
	aa
end