module AllNames where

names :: [([Char], [Char])]
names = [("Callum", "Kilmartin"),
         ("Goudham","Suresh"),
         ("Theo", "Hardman"),
         ("Luca","Valentini"),
         ("Cormac", "Muir")]