Task

Take a   Natural Number   in a given base and return the sum of its digits:

   110         sums to   1
   123410   sums to   10
   fe16       sums to   29
   f0e16     sums to   29


make "digits "0123456789abcdefghijklmnopqrstuvwxyz
 
to digitvalue :digit
   output difference find [equal? :digit item ? :digits] iseq 1 count :digits 1
end
 
to sumdigits :number [:base 10]
  output reduce "sum map.se "digitvalue :number
end
 
foreach [1 1234 fe f0e] [print (se ? "-> sumdigits ?)]