+module Witches_Loco(){ ////toplevel
+// Witches Loco total=25 rowsz=5 nrows=5
+ union(){
+ Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
+ $nspots = 0;
+ translate(token_pitch * [ -2.0, -2.0 ]) Token_L();
+ translate(token_pitch * [ -2.0, -1.0 ]) Token_L();
+ translate(token_pitch * [ -2.0, 0.0 ]) Token_L();
+ translate(token_pitch * [ -2.0, 1.0 ]) Token_L();
+ translate(token_pitch * [ -2.0, 2.0 ]) Token_L();
+ translate(token_pitch * [ -1.0, -2.0 ]) Token_L();
+ translate(token_pitch * [ -1.0, -1.0 ]) Token_L();
+ translate(token_pitch * [ -1.0, 0.0 ]) Token_L();
+ translate(token_pitch * [ -1.0, 1.0 ]) Token_L();
+ translate(token_pitch * [ -1.0, 2.0 ]) Token_L();
+ translate(token_pitch * [ 0.0, -2.0 ]) Token_L();
+ translate(token_pitch * [ 0.0, -1.0 ]) Token_L();
+ translate(token_pitch * [ 0.0, 0.0 ]) Token_L();
+ translate(token_pitch * [ 0.0, 1.0 ]) Token_L();
+ translate(token_pitch * [ 0.0, 2.0 ]) Token_L();
+ translate(token_pitch * [ 1.0, -2.0 ]) Token_L();
+ translate(token_pitch * [ 1.0, -1.0 ]) Token_L();
+ translate(token_pitch * [ 1.0, 0.0 ]) Token_L();
+ translate(token_pitch * [ 1.0, 1.0 ]) Token_L();
+ translate(token_pitch * [ 1.0, 2.0 ]) Token_L();
+ translate(token_pitch * [ 2.0, -2.0 ]) Token_L();
+ translate(token_pitch * [ 2.0, -1.0 ]) Token_L();
+ translate(token_pitch * [ 2.0, 0.0 ]) Token_L();
+ translate(token_pitch * [ 2.0, 1.0 ]) Token_L();
+ translate(token_pitch * [ 2.0, 2.0 ]) Token_L();
+ };
+ union(){
+ Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
+ $nspots = 1;
+ };
+ union(){
+ Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
+ $nspots = 2;
+ };
+ union(){
+ Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
+ $nspots = 3;
+ };
+ union(){
+ Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
+ $nspots = 4;
+ };
+}