foldl1 implementation

``` haskell
let fld     = foldl1 (\a, b => b) slines
```

Should tests for it be added or maybe tests for `foldl` is enough?