examples/archived/multi-service/air-scripts/ethqlite_init.clj

(xor
    (seq
        (seq
            (call relay ("op" "identity") [])
            (call node (service "init_service") [] result)
        )
        (seq
            (call relay ("op" "identity") [])
            (call %init_peer_id% (returnService "run") [result])
        )
    )
    (seq
        (call relay ("op" "identity") [])
        (call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
    )   
)