-- |Create string tokens from a list of strings
-- This is a workaround to a design fault in our tokenizer
joinstr :: [String] -> Int -> [String] -> [String]
joinstr acc 0 []                           = reverse acc
joinstr :: [String] -> Int -> [String] -> [String]
joinstr acc 0 []                           = reverse acc
joinstr acc 0 []                           = reverse acc