1\  Third Local-overrun test.  Unterminated locals decl'n w/ no separator
2
3: coconuts ( m1 m2 -- m3 m4 m5 )
4    {
5         q
6	    _gummo
7	        _karl
8
9    2dup < if swap then
10    2dup / -> _gummo
11    2dup - -> _karl
12    * -> q
13    _karl _gummo q
14;
15