RosettaCodeData/Task/Substring-Top-and-tail/Icon/substring-top-and-tail-1.icon

procedure main()
write(s := "knight"," --> ", s[2:0])  # drop 1st char
write(s := "sock"," --> ", s[1:-1])   # drop last
write(s := "brooms"," --> ", s[2:-1]) # drop both
end