@a=(0)x<>;
for(<>=~/./g){
	/-/&&--$a[$p];
	/\+/&&++$a[$p];
	/</&&--$p;
	/>/&&++$p;
	$p<0|$p>=@a&&exit!print"error";
}
print"@a";