Make list productions left-recursive

ldtext/test.fsx

@@ -21,7 +21,7 @@ let parse (s:string) =
 parse "abc();"
 parse "abc(def);"
 parse "abc(def,ghi);"
-parse "abc(def,ghi) a(b) ;"
+parse "abc(def,ghi) j(k) ;"
 parse "a() [ b() c(), d(), , e() [ f() ] g() ] h();"
 
 if failed then exit 1 else exit 0