hmmmm

policy Ignore : all

model Tape : tape
model CharIo : io

token ">" {
	tape.shiftPointer(1);
}

token "<" {
	tape.shiftPointer(-1);
}

token "+" {
	tape.set(tape.get() + 1);
}

token "-" {
	tape.set(tape.get() - 1);
}

token "." {
	tape.set((int) io.in());
}

token "," {
	io.out((char) tape.in());
}

open "[" {
	return tape.get() != 0;
} close "]"