uses drawman;
begin
field(10, 10);
topoint(5, 1);
pendown;
onvector(0, 1);
onvector(-3, 0);
onvector(2, 2);
onvector(-1, 0);
onvector(2, -2);
penup;
end.
uses drawman;
begin
field(10, 10);
topoint(5, 1);
pendown;
onvector(0, 1);
onvector(-3, 0);
onvector(2, 2);
onvector(-1, 0);
onvector(2, 2);
onvector(2, -2);
onvector(-1, 0);
onvector(2, -2);
onvector(-3, 0);
penup;
end.