; 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!"))))