ghci> let a ^∞ b = a ++ cycle (' ':init b) in "I am" ^∞ "(pardoning myself for)"