#!/usr/bin/perl -w
use strict;print "#include <stdio.h>\n#include<stdlib.h>int main(void){int *p=malloc(30000*sizeof(int));";while(<STDIN>){chomp;s/bork/++p;/;s/börk/--p;/;s/børk/++*p;/;s/bôrk/--*p;/;s/bórk/putchar(*p);/;s/bòrk/*p=getchar();/;s/bºrk/while(*p){/;s/bœrk/}/;print;}print "return 0;}";