1let
2    c = repeat_xy [2,2] << shell .2 << colour black << circle 2;
3in
4union[c,translate[1,1]<<c]
5