p
t
s
=
{
{
0
,
0
,
0
}
,
{
0
,
1
,
2
}
,
{
1
,
1
,
1
}
,
{
1
,
0
,
5
}
}
;
m
a
k
e
P
l
a
n
e
:
=
M
o
d
u
l
e
[
{
p
l
a
n
e
}
,
p
l
a
n
e
=
F
i
t
[
p
t
s
,
{
1
,
x
,
y
}
,
{
x
,
y
}
]
;
f
=
F
u
n
c
t
i
o
n
[
{
x
,
y
}
,
p
l
a
n
e
]
;
f
i
n
d
P
t
[
f
]
]
f
i
n
d
P
t
[
p
l
_
]
:
=
M
o
d
u
l
e
[
{
}
,
p
l
[
1
,
2
]
]
m
a
k
e
P
l
a
n
e
1
.
5
+
2
.
x
-
1
.
y
f
[
1
,
2
]
1
.
5
f
i
n
d
P
t
[
f
]
1
.
5
+
2
.
x
-
1
.
y