call0makeMlt p i b i0 i1 =
  let p' = popStack p b
  in (gotof (stackTop p')) p' i (makeMlt (getStackArg p b i0) (getStackArg p b i1))
call0makeMlt p i b i0 i1 =
  let p' = popStack p b
  in (gotof (stackTop p')) p' i (makeMlt (getStackArg p b i0) (getStackArg p b i1))
call0makeMlt p i b i0 i1 =
  let p' = popStack p b
  in (gotof (stackTop p')) p' i (makeMlt (getStackArg p b i0) (getStackArg p b i1))