import Control.Applicative
import System.Process
data User = User String String String deriving Show
getPass = rawSystem "stty" ["-echo"] *> getLine <* rawSystem "stty" ["echo"]
getInput x f = putStrLn (x ++ ": ") *> f
username = getInput "Username" getLine
password = getInput "Password" getPass
email = getInput "Email" getLine

main = User <$> username <*> password <*> email