# Copyright (c) 1998-2001 by Xerox Corporation and Copyright (c) 2002 by Palo Alto Research Center Incorporated.  All rights reserved.

define CapMarks "^ " | "^^ " ;

#  Remove Capitalize Marks 

regex [ CapMarks -> 0 ].i ;
save removecapmarks.fst

clear

#  Accepts strings that contain capitalization marks 

regex $CapMarks ;
save containscapmarks.fst

quit