1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: regexp kernel io ;
4 IN: tools.deploy.test.13
6 : regexp-test ( a -- b ) <regexp> "xyz" swap matches? ;
8 : main ( -- ) "x.z" regexp-test "X" "Y" ? print ;