@S=<>=~/./g;
for$p(0..2**@S){
	$a=$l=0;$r=@S;
	$a.=$S[$p>>$_&1?$l++:--$r]for 0..$#S;
	$\+=!$$a++
}
print