Experimenting with Haskell - simple script that reads name, validates with functions and writes output to file.

check_if_beast.hs

import System.Environment
import Data.Char

main = promptNameAndSave

matchesName s = if (map toUpper s) == "JOSUE" then True else False

checkIfBeast str = if matchesName str then "a BEAST !" else "normal."

finalMessage h i = "Thanks " ++ h ++ ", you are " ++ i

addToFile s = writeFile "is_beast.out" (s ++ "\n")

promptNameAndSave = do
       putStrLn "What is your name?"
       name <- getLine
       let message = finalMessage name (checkIfBeast name)
       putStrLn $ "\n" ++ message
       addToFile message

Run in command-line as:

runhaskell check_if_beast.hs