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