1\ LocalTest1.fth
2\    Updated Thu, 12 Jan 2006 at 13:35 PST by David L. Paktor
3
4fcode-version2
5	\  Deliberately omitting inclusion of  LocalValuesSupport
6	\  Correct inclusion is in  TokoLoco/SupportedLocalTest.fth
7: ducksoup ( n1 n2 n3 -- m1 m2 )
8	{ _harpo _chico _groucho | _zeppo _karl }
9    _groucho _harpo *  -> _zeppo  dup
10    _chico _zeppo +  -> _karl     dup
11    _groucho _zeppo = if  swap exit then
12    _groucho + swap _zeppo +
13;
14
15: coconuts ( m1 m2 -- m3 m4 m5 )
16    { ; q _gummo _karl }
17    2dup < if swap then
18    2dup / -> _gummo
19    2dup - -> _karl
20    * -> q
21    _karl _gummo q
22;
23
24fcode-end
25