TUPLE: testing foo ; testing "TESTING" { { "foo" "FOO" TEXT } } define-persistent "xxx.db" [ testing new "レイプレイ in 人工少女3~その1" >>foo insert-tuple testing new select-tuples . ] with-db