(Right (semOut, gamma))
# stdin = if (not args.sem) stdin (
stdin <<< "//SEM\n" <<< toString gamma <<< "//SEM\n")
- = snd $ fclose stdin w
+ = snd $ fclose (stdin <<< "\n") w
where
printTokens :: [Token] -> String
printTokens ts = concat $ flatten $ map pt ts