I have a temporary solution
```
Output=Table[someType@RandomReal[1,RandomInteger[100]],{i,10}];
Flow= OpenWrite[".cache"]
Scan[WriteString[flow,Compress[#]<>"\n"]&,output]
Close[flow]
Reader=OpenRead[".cache"]
SetStreamPosition[reader,0]
Skip[reader,Record,7]
Uncompress@Read[reader,Record]
```