(**
## Implementation
*)

module List =
    /// The intersperse function takes an element and a list and
    /// 'intersperses' that element between the elements of the list.
    let intersperse sep ls =
        List.foldBack (fun x -> function
            | [] -> [x]
            | xs -> x::sep::xs) ls []

(**
## Example with int
*)

List.intersperse 0 [1..10]

(**
## Example with [fable-arch](https://github.com/fable-compiler/fable-arch)
*)

model.counters
|> List.map Counter.view
|> List.intersperse (hr [])