Add simplifications for List.intersperse on a singleton list

[lue-bird]

Implements #142 without the last fix.

List.intersperse s [ a ]
--> [ a ]

-- not shown in the summary for example
List.intersperse a << List.singleton
--> List.singleton