routine HoboPuzzle
{
local i,j,k,l, o
for (i=1;i<=14 ;i++ )
{
if i = o
break
for (j=(i+1);j<=14 ;j++ )
{
for (k=(j+1);k<=14 ;k++ )
{
for (l=(k+1);l<=14 ;l++ )
{
if (j*j + i * i + k * k + l * l) = 200
{
print number i ; " " ; number j; " "; number k; " "; number l
if not o
o = j
}
}
}
}
}
}