(assert= 'hello world' (cat 'hello' ' world'))
(assert= 'yoyoyo' (dup 'yo' 3))
(assert= 'e' (char-at 'hello' 1))