line-mode
dup
read-num
9
%
9
logical-or
show
pair
w( "digital_root(" ")=" )
zip