getFlagValue :: Char -> Int
getFlagValue f
    | f == 'a' = 1
    | f == 'l' = 2
    | f == 'R' = 12
    | otherwise = 0
getFlagValue :: Char -> Int
getFlagValue f
    | f == 'a' = 1
    | f == 'l' = 2
    | f == 'R' = 12
    | otherwise = 0
getFlagValue f
    | f == 'a' = 1
    | f == 'l' = 2
    | f == 'R' = 12
    | otherwise = 0