ZimmerD

open BioFSharp
open FSharpAux.IO.SeqIO

///Returns a function to format a given value as string
let inline stringFunction (separator: string) (flatten: bool) (input: 'a) =
    let o = box input
    match o with
    //match string first so that it doesn't get treated as a char array
    | :? string ->
        fun (x: obj) ->