show_ballot :: Ballot -> P.String
show_ballot f = P.unwords (P.map (\x -> P.show x P.++ P.show (haskInt (f x)))  (c2hl cand_all))
show_ballot :: Ballot -> P.String
show_ballot f = P.unwords (P.map (\x -> P.show x P.++ P.show (haskInt (f x)))  (c2hl cand_all))
show_ballot f = P.unwords (P.map (\x -> P.show x P.++ P.show (haskInt (f x)))  (c2hl cand_all))