intercalate1 & intercalateMap1

```haskell
ghci> intercalate1 ", " $ "hello" :| ["how", "are", "you"]
"hello, how, are, you"
ghci> intercalate1 ", " $ "hello" :| []
"hello"
```