{ "" CHATSTR = NBRLOOSEPROPS ARRAY lp =
{ [i LOOSEPROPPOS 22- 22-] lp i PUT
i++}{ i NBRLOOSEPROPS < } WHILE
MOUSEPOS 22 - my = 22 - mx = 1 sauce =
{ 0 i = 0 sauce =
{ xy = xy 0 GET x = xy 1 GET y = 0 update =
{{mx x - 8 / x +=}{x mx - 8 / x -=} x mx < IFELSE 1 update =} x 8+ mx > x mx 8+ < AND NOT IF
{{my y - 8 / y +=}{y my - 8 / y -=} y my < IFELSE 1 update =} y 8+ my > y my 8+ < AND NOT IF
{x xy 0 PUT y xy 1 PUT
x y i MOVELOOSEPROP 1 sauce =} update IF
i ++} lp FOREACH
}{ sauce } WHILE
} CHATSTR "magnet" == IF