Revision as of 20:08, 26 May 2016 (view source) rosettacode>Gerard Schildberger m (→‎{{header\|REXX}}: redid a boxed comment, added/changed comments and whitespace.) ← Older edit		Revision as of 13:42, 6 July 2016 (view source) Franck (talk \| contribs) m (→‎{{header\|Oforth}}) Newer edit →
Line 902: =={{header\|Oforth}}== <lang Oforth>~~func~~: topAndTail(s) s ~~extract~~right(2, s size 1 - ) println▼ { s ~~right~~left(s size 1 -) println s ~~left~~extract(2, s size 1 - ) println ;</lang> ▲ s extract(2, s size 1 - ) println ~~}</lang>~~ {{out}}

Substring/Top and tail (view source)