Brainfuck

data Brainfuck = Up | Down | Loop Brainfuck