Needs["hirota`"]

n=3;


B[f_, g_]:=Dxt[1,1,x,t,f,g]+Dxt[2,2,x,t,f,g];

name="Ito-b4";

myfile="h_itob4.o";

OpenLog[myfile];

hirota[B,name,n,2,0,False,False];

CloseLog[];