@H
!i1
!i2
&Rsq(1.414213562)
define model:m1(!a,!b,!c,!d)
{
&rr(!a,!b)
&rr(!b,!c)
&rr(!c,!d)
&rr(!d,!a)
&Rsq(!a,!c)
}
model:m1(!i1,!i2,!i3,!i4)
define form:f1(!i1,!i2,!i3,!i4)
{
&(!i1,!i2)
&(!i2,!i3)
&(!i3,!i4)
&(!i4,!i1)
}
@S
form:f1(!i1,!i2,!i3,!i4)
form:f1(!i1,!i5,!i2,!i6)
form:f1(!i1,!i7,!i5,!i8)
form:f1(!i1,!i9,!i7,!i10)
form:f1(!i1,!i11,!i9,!i12)
form:f1(!i1,!i13,!i11,!i14)
form:f1(!i1,!i15,!i13,!i16)
form:f1(!i1,!i17,!i15,!i18)