((rec(l s a)(if(<(dec! a)0)(print s)(if(l #`",|s|."a)(l #`",|s|#"a))))""(read))