let rec concat_commas slist = 
  match slist with 
      x::[] -> x
    | x::rest -> concat [x;", ";concat_commas rest]
    | [] -> ""