fun mkstring(a: Array<String>, collect:String = "") =
    a match {
        case [] -> collect
        case [x ~ xs] -> mkstring(xs, collect ++ "," ++ x)
    }
---
mkstring(["Read", "Clear", "Read" , "Foo"])