runProg :: ProgSettings -> IO String
runProg st
    | translate st = matchTranslate (lib st) (spec st) (pattern st) $ design st
    | otherwise = matchDesign (lib st) (spec st) (pattern st) $ design st
runProg :: ProgSettings -> IO String
runProg st
    | translate st = matchTranslate (lib st) (spec st) (pattern st) $ design st
    | otherwise = matchDesign (lib st) (spec st) (pattern st) $ design st
runProg st
    | translate st = matchTranslate (lib st) (spec st) (pattern st) $ design st
    | otherwise = matchDesign (lib st) (spec st) (pattern st) $ design st