RosettaCodeData/Task/Substring-Top-and-tail/EasyLang/substring-top-and-tail.easy

s$ = "Easylang"
print substr s$ 1 (len s$ - 1)
print substr s$ 2 (len s$ - 1)
print substr s$ 2 (len s$ - 2)