fullformflag :: [Flag] -> Bool
fullformflag xs = 
    case [p | p@(Print "lex") <- xs] of
     [_] -> True
     _   -> False


{-|Data type for the Command line arguments. -}
fullformflag :: [Flag] -> Bool
fullformflag xs = 
    case [p | p@(Print "lex") <- xs] of
     [_] -> True
     _   -> False


{-|Data type for the Command line arguments. -}
fullformflag xs = 
    case [p | p@(Print "lex") <- xs] of
     [_] -> True
     _   -> False


{-|Data type for the Command line arguments. -}