#!/usr/bin/perl -w
use strict;

my($p,@m);@_=('>+++++++++[<++++++++>-]<++.>++++++[<++++++++>-]<-----.--.+.>++++++++[<---------->-]<----.>+++++++++[<+++++++>-]<++.>++++[<+++>-]<+.+.+++++.>++++[<--->-]<.---.>++++[<+++>-]<+.[-]>++++++++[<++++>-]<.>+++++++[<+++++++>-]<-.>+++++++[<+++>-]<.+++++++++++++.------.[-]>++++++[<++++++>-]<----.>++++++[<+++++++>-]<--.>++++++[<++++>-]<+.++.++++++++.>++[<--->-]<.+++++++++++++.[-]++++++++++.');*$=sub{s/./$&;\n/g;s/\+|-/P$&$&/g;s/</\$p--/g;s/>/\$p++/g;s/\./print chr P/g;s/,/P=ord getc/g;y/[]/{}/;s/{;/while(P){/g;s/};/}/g;s/P/\$m[\$p]/g;eval;print$@if$@};&$ for@_;