dog.hs

-- Infinite list of the suffixes for 0 to 99 repeating
suffixes = ["th", "st", "nd", "rd", "th", "th", "th", "th", "th", "th"]
all_suffixes = concat (suffixes : replicate 10 "th" : replicate 8 suffixes)

-- Infinite list of every natural number with it's corresponding suffix
english = zipWith (++) (map show [0..]) (concat (repeat all_suffixes))

-- Returns a list of `total_number` places without the `exlcuded` position
list_places exclude total_number = take (total_number - 1) (fst ++ tail snd)
    where (fst, snd) = splitAt exclude english