[proc,script5501].cs2

// 5501
[proc,script5501](string $string0)(int)
if (string_length($string0) > 0 & compare(substring($string0, 0, 1), "|") = 0) {
	return(1);
}
return(0);