personslist = map (\x -> Person (show x) (x`mod`100) (show x)) [1..50000]
personslist = map (\x -> Person (show x) (x`mod`100) (show x)) [1..50000]
personslist = map (\x -> Person (show x) (x`mod`100) (show x)) [1..50000]