(defun kontrollera-pnr (pnr)
  (=
   (get-last-digit pnr)
   (ten-diff
    (add-list
     (split-numbers
      (alternate-add
       (tokenize-number
         (remove-ctrl-no pnr) )))))))