#define f(x,y)for i:=1to n do write(copy("====*=<->| ",3*ord(ord(s[i])x)+y):3,^j:i div n);
var s:string;i,j,n:comp;begin
read(s);n:=length(s);f(<1,1)f(>52,7)f(<53,7)f(>3and(n-i)*99,1)for j:=3to 7do f(mod 5=j mod 5,7)f(<1,1)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).