evalThem cc = go
 where run_eval = evalCompCmd cc 
       go []     = ret
       go [x]    = run_eval x
       go (x:xs) = run_eval x >> go xs
evalThem cc = go
 where run_eval = evalCompCmd cc 
       go []     = ret
       go [x]    = run_eval x
       go (x:xs) = run_eval x >> go xs
evalThem cc = go
 where run_eval = evalCompCmd cc 
       go []     = ret
       go [x]    = run_eval x
       go (x:xs) = run_eval x >> go xs