(use util.combinations)

(define yuki170
  (write (- (length (permutations* (string->list (read-line)))) 1)))