Building a random infinite path [on hold]

How can I build a random infinite path, based on a generator and using Data.List.iterate and System.Random.split ?

randomPath :: RandomGen g => g -> (Path, g)