spec = let
           gg = [   ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER),
                    ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER),
                    ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER)]
       in mapTests " changeWorld " gg
spec = let
           gg = [   ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER),
                    ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER),
                    ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER)]
       in mapTests " changeWorld " gg
spec = let
           gg = [   ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER),
                    ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER),
                    ((GA, F ["XOO","X  ","   "]), changeWorld GA (head fields) (toCoorOnField 1 0) X VS_USER)]
       in mapTests " changeWorld " gg