; reverse list
(= reverse (fn (lst)
(let res nil)
(while lst
(= res (cons (car lst) res))
(= lst (cdr lst)))
res))
; chop string to list, reverse list and pack it back to string
(print (pack (reverse (chop "Hello world!"))))