insert

Works

```
let
   s = "test string scoped"
in $(genTypedQuery [qq|
 INSERT INTO 
     test ( str -- String -- < s
          )
|] )
```

Do not work

```
let
   s = "test string scoped" :: String
in $(genTypedQuery [qq|
 INSERT INTO 
     test ( str -- < s
          )
|] )
```

More sensitive parser

first gives:

```
[TAInsIS "s"]
[]
[TACast "String "]
```

second:

```
[TAInsIS "s"]
[]
[]
```
