RosettaCodeData/Task/Substring-Top-and-tail/Oforth/substring-top-and-tail.fth

: topAndTail(s)
    s right(s size 1-) println
    s left(s size 1-) println
    s extract(2, s size 1- ) println ;