Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeList/Repeat.hs

module Prelude where

repeat		:: a -> [a]
repeat x 	= xs where xs = x:xs