Сумма цифр в числе

Прочёл ещё одну историю из IT-happens. Там школьникам поставили задачу подсчитать сумму цифр в числе. Хитропопый школьник заставил пользователя вводить число по одной цифре, а потом сложил все введённые цифры.

Я попробовал повторить подвиг школьника на newLISP. Программа, как и предполагал, уложилась в полстрочки:

(define (sum-digit x) (apply + (map int (explode (string x)))))