function :: Int -> Int
function a =
    aReallyLongFunctionNameThatShouldStayOnThisLineToAvoidOverflowing 10000 a

function' :: String -> String
function' s = case s of
    "ThisString" ->
        -- And a comment here is okay
        "Yay"
    _ -> "Boo"
