RosettaCodeData/Task/Substring-Top-and-tail/NewLISP/substring-top-and-tail.l

(let (str "rosetta")
  ;; strip first char
  (println (1 str))
  ;; strip last char
  (println (0 -1 str))
  ;; strip both first and last characters
  (println (1 -1 str)))