我的球拍语言功能有什么问题吗？

我的输入是

（输出到文件“output”（lambda（）（打印（附加更长的字符串“second”“first”））））

我想要的输出是“第一秒”

这是我在球拍(define (append-longer-string str1 str2) (if (> (string-length str1) (string-length str2)) (string-append str1 str2) (if (= (string-length str1) (string-length str2)) (string-append str1 str2) (string-append str2 str1))))中写的逻辑

但这里我得到的输出仅为secondfirst。

如果有人知道，请帮助我。将不胜感激，并提前感谢您。