struct Kor
	Int x
	Int y
	Double sugar
endstruct
 
Kiiras(Kor,Kor) -> String
Kiiras(a,b)
  | ka < kb	= "Elso kor kisebb"
  | ka == kb	= "Egyenlok"
  | otherwise	= "Masodik nagyobb"
  where
	ka = Kerulet(a)
	kb = Kerulet(b)
 
Kerulet(Kor) -> Double
Kerulet(k) = 2*PI*k.sugar