test ans

(ops-search state3 '((at R A1)(on ball A4)) ops3 :world world4)

=> #'testing/world4
=> #'testing/world3
=> #'testing/state3
=> #'testing/ops3
=>
{:state #{(holds R nil) (at R A1) (on ball A4)},
 :path (#{(holds R nil) (at R A1)}
        #{(holds R nil) (at R A2)}
        #{(holds R nil) (at R B1)}
        #{(holds R nil) (at R B2)}
        #{(holds R nil) (at R B3)}
        #{(holds R nil) (at R C1)}
        #{(holds R nil) (at R C2)}
        #{(holds R ball) (at R C2)}
        #{(holds R ball) (at R C3)}
        #{(holds R nil) (on ball B4) (at R C3)}
        #{(holds R nil) (at R B4) (on ball B4)}
        #{(holds R ball) (at R B4)}
        #{(holds R ball) (at R B5)}
        #{(holds R ball) (at R B6)}
        #{(at R B6) (holds R nil) (on ball A3)}
        #{(holds R nil) (on ball A3) (at R A3)}
        #{(holds R ball) (at R A3)}
        #{(holds R ball) (at R A4)}
        #{(holds R nil) (at R A4) (on ball A4)}
        #{(holds R nil) (at R A3) (on ball A4)}
        #{(at R B6) (holds R nil) (on ball A4)}
        #{(holds R nil) (on ball A4) (at R B5)}
        #{(holds R nil) (at R B4) (on ball A4)}
        #{(holds R nil) (on ball A4) (at R C3)}
        #{(holds R nil) (on ball A4) (at R C2)}
        #{(holds R nil) (at R C1) (on ball A4)}
        #{(holds R nil) (at R B3) (on ball A4)}
        #{(holds R nil) (on ball A4) (at R B2)}
        #{(holds R nil) (at R B1) (on ball A4)}
        #{(holds R nil) (at R A2) (on ball A4)}),
 :cmds ([move A1 to A2]
        [on R B1]
        [move B1 to B2]
        [move B2 to B3]
        [on R C1]
        [move C1 to C2]
        [Pick-off ball from C2]
        [move C2 to C3]
        [drop-from ball to B4]
        [climb-off from C3]
        [Pick-off ball from B4]
        [move B4 to B5]
        [move B5 to B6]
        [drop-from ball to A3]
        [climb-off from B6]
        [pickup ball from A3]
        [move A3 to A4]
        [drop ball at A4]
        [move A4 to A3]
        [on R B6]
        [move B6 to B5]
        [move B5 to B4]
        [on R C3]
        [move C3 to C2]
        [move C2 to C1]
        [climb-off from C1]
        [move B3 to B2]
        [move B2 to B1]
        [climb-off from B1]
        [move A2 to A1]),
 :txt (((move from A1 to A2))
       (climb on B1)
       ((move from B1 to B2))
       ((move from B2 to B3))
       (climb on C1)
       ((move from C1 to C2))
       ((Pick off ball from C2))
       ((move from C2 to C3))
       ((Drop-from ball to B4))
       (climb-off from C3)
       ((Pick off ball from B4))
       ((move from B4 to B5))
       ((move from B5 to B6))
       ((Drop-from ball to A3))
       (climb-off from B6)
       ((pickup ball at A3))
       ((move from A3 to A4))
       ((Drop ball at A4))
       ((move from A4 to A3))
       (climb on B6)
       ((move from B6 to B5))
       ((move from B5 to B4))
       (climb on C3)
       ((move from C3 to C2))
       ((move from C2 to C1))
       (climb-off from C1)
       ((move from B3 to B2))
       ((move from B2 to B1))
       (climb-off from B1)
       ((move from A2 to A1)))}