! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: regexp kernel io ;
IN: tools.deploy.test.13

: regexp-test ( a -- b ) <regexp> "xyz" swap matches? ;

: main ( -- ) "x.z" regexp-test "X" "Y" ? print ;

MAIN: main