#define W(X,Y)for i:=1to l do write(copy("====*=<->| ",X+3*ord((ord(s[i])-48)Y)+1):3,^j:i div l);
var s:string;i,j,l:word;begin
read(s);l:=length(s);W(,<0)W(6,>4)W(6,<5)W(,*0+3and(i-l)<1)for j:=0to 4do W(6,mod 5=j)W(,<0)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).