Vaihe 1: piirrä ympyrä, säde kolme, kp origo
Vaihe 2: Sijoita piste objektilla ominaisuutta 
             käyttäen kaksi pistettä ympyrän kehälle
Vaihe 3: Valitse ympyrän kaari:keskipiste ja kaksi pistettä
Vaihe 4: Valitse etäisyys tai pituus ja siirrä lopuksi toista
              pistettä, niin, että kaaren pituus on 7
Vaihe 5: sijoita ja mittaa kulma

A = Intersect(xAxis, yAxis)
B: (3, 0)
c = Circle(A, B)
C = Point(c)
D = Point(c)
d = CircleArc(A, D, C)
a = Length(d)
Tekstid: "Kaaren " + (Name[d]) + " pituus = " + a
Pisted = PointIn(d)
α = Angle(D, A, C)