(check (and
        (eq (to-str (cons 1 2) "(1 . 2)"))
        (eq (to-str 'apa) "apa")))