content: on digitalroot(N as integer)
  	script math
  		to sum(L)
  			if L = {} then return 0
  			(item 1 of L) + sum(rest of L)
  		end sum
  	end script
  	
  	set i to 0
  	set M to N
  	
  	repeat until M < 10
  		set digits to the characters of (M as text)
  		set M to math's sum(digits)
  		set i to i + 1
  	end repeat
  	
  	{N:N, persistences:i, root:M}
  end digitalroot
  
  
  digitalroot(627615)
  