Updates scheme rule-helpers for r2l questions; a few bugs remain. . .

@AmeBel @ruiting @linas @bgoertzel 
for the example shouldn't the output be 
```
  (EvaluationLink
      (PredicateNode "Truth Value")
      (EvaluationLink (stv 0.99000001 0.99000001)
         (PredicateNode "under@e58f35c6-bdcb-4a8b-b992-aa25a057b0dc" (stv 0.001 0.99000001))
         (ListLink (stv 0.99000001 0.99000001)
            (ConceptNode "book@4203fa9c-72d4-4ecb-b018-75fc0d26cdb5" (stv 0.001 0.99000001))
          (ConceptNode "table@12eb33ae-45bc-472d-b23f-2b1bda25f111" (stv 0.001 0.99000001))
         )
      )
      (VariableNode "$var1")
   )
```
instead of
```
  (EvaluationLink
      (PredicateNode "Truth Value")
      (EvaluationLink (stv 0.99000001 0.99000001)
         (PredicateNode "under@e58f35c6-bdcb-4a8b-b992-aa25a057b0dc" (stv 0.001 0.99000001))
         (ListLink (stv 0.99000001 0.99000001)
            (ConceptNode "book@4203fa9c-72d4-4ecb-b018-75fc0d26cdb5" (stv 0.001 0.99000001))
         )
      )
      (VariableNode "$var1")
   )
```