              (process-token [111111 22222222222222222] :*)
                => [2469133333333333308642N]
              )
+       (fact "process-token with :* and many numbers"
+             (process-token [5 8 9 6 3 2] :*) => [5 8 9 6 6])
        )
 
 

             (process-token [1/2 0/5] :÷) => [1/2 0]
             (process-token [0.0 0.0] :÷) => [0.0 0.0]
             )
       )

(facts "about process-token with :*"

             (process-token [2/3 5/6] :-) => [-1/6]
             (process-token [0 0] :-) => [0]
             )
       (fact "process-token with :- and many numbers"
             (process-token [5 8 9 6 3 2] :-) => [5 8 9 6 1])
       )

(facts "about process-token with :÷"
