In[]:=
ParallelEvaluate[{$MachineName,(TSCF=FunctionCompile[Function[{Typed[init,TypeSpecifier["PackedArray"]["MachineInteger",1]],Typed[t,"Integer64"]},Module[{q=CreateDataStructure["Queue"],output},Scan[q["Push",#]&,init];Do[If[q["Length"]≥3,Scan[q["Push",#]&,If[q["Pop"]0,{0,0},{1,1,0,1}]];Do[q["Pop"],2]],t];Normal[q]]]])//AbsoluteTiming}]
Out[]=
$Aborted