(define(l s a)(if(= a 0)(print s)(list(l #`",|s|."(- a 1))(l #`",|s|#"(- a 1)))))(l""(read))