jaklt

name:               export
version:            0.1.0.0
build-type:         Simple
cabal-version:      >= 1.10

executable export
  main-is:          export.hs
  build-depends:    base
                  , aeson
                  , time

jaklt

int main(int argc, char *argv[])
{
    char response[20];
    scanf("%s", &response);
    printf("aeiok\n");
    return 0;
}

jaklt

module Main where

main :: IO ()
main = do
    l <- getLine
    if l == "aei"
        then putStrLn "aeiok\n"
        else appendFile "/tmp/rabbocopLog" "failed\n"
    appendFile "/tmp/rabbocopLog" l
    appendFile "/tmp/rabbocopLog" (show $ l == "aei")