fluent-pad/scripts/set_tetraplet.air

(xor
    (seq
        (call relay ("op" "identity") [])
        (seq
            (call relay (history "set_tetraplet") [host userlist function json_path] auth_result)
            (call %init_peer_id% (returnService "run") [auth_result])
        )
    )
    (call %init_peer_id% (returnService "run") [%last_error%])
)