;; digital root calculator
;; written by Keymaker


  >,
  [
    <++++++[>--------<-]>
    [>+<-]>
    [<+>>+<-]
    >[<+>-]<<

    [-[-[-[-[-[-[-[-[-[ [-]
      >---------<
    ] ] ] ] ] ] ] ] ] ]

    ,
  ]

  ++++++[>++++++++<-]++++++++++>.<.