lexer (stripPrefix "Development" -> Just x) =
    let (a,b) = span (\x -> isAlpha x || x == '.') x in ("Development" ++ a) : lexer b
lexer (stripPrefix "Development" -> Just x) =
    let (a,b) = span (\x -> isAlpha x || x == '.') x in ("Development" ++ a) : lexer b
lexer (stripPrefix "Development" -> Just x) =
    let (a,b) = span (\x -> isAlpha x || x == '.') x in ("Development" ++ a) : lexer b