gocat obj1
run 300 "obj1"
offset arc 2 2
run 300 "obj1 dith1"
offset arc -2 -2
run 300 "obj1 dith2"
beep