RosettaCodeData/Task/Reverse-a-string/Ol/reverse-a-string.ol

(define (rev s)
   (runes->string (reverse (string->runes s))))

; testing:
(print (rev "Hello, λ!"))
; ==> !λ ,olleH