Needs["hirota`"]

n=3;
B[f_, g_]:=Dx[6,x,f,g]+Dxt[3,1,x,t,f,g];
name="5th-MKdV";
myfile="h_5mkdv.o";

OpenLog[myfile];

hirota[B,name,n,3,3,True,True];

CloseLog[];