#!/usr/bin/env runghc
-- This is a comment

doubleMe x = x * 3

doubleUs x y = doubleMe x + doubleMe y

doubleSmallNumber x = if x <= 100 then doubleMe x else x

-- ' <- uptick is used as convetion to mark lightly modified function
doubleSmallNumber' x = (if x <= 100 then doubleMe x else x) + 1

-- compile: ghc -dynamic prax1.hs
-- flag -dynamic is needed under Arch Linux, can be leaved off on ther envs

-- runghc prax1.hs
-- this also works ↑

-- entrypoint
main = do
    putStrLn "Hello World"
    name <- getLine
    putStrLn ("Hello " ++ name ++ "!")