load("stringproc")$
top(s) := substring(s, 2)$
tail(s) := substring(s, 1, slength(s))$
top_and_tail(s) := substring(s, 2, slength(s))$
map(lambda([f], f("xyzzy")), [top, tail, top_and_tail]);