=={{header|Emacs Lisp}}==
<lang Emacs Lisp>(let ((string "top and tail"))
(substring string 1) ;=> "op and tail"
(progn
(setqsubstring string 0 (1- (length string))) ;=> "top and tailtai")
(insertsubstring string 1 (format1- "%s\n"(length string) ))) ;=> "op and tai"</lang>
(setq len (length string) )
(insert (format "%s\n" (substring string 1) ))
(insert (format "%s\n" (substring string 0 (1- len) )))
(insert (format "%s\n" (substring string 1 (1- len) ))))
</lang>
<b>Output:</b>
<pre>
top and tail
op and tail
top and tai
op and tai
</pre>
=={{header|Erlang}}==
|