Function PackStream:TStream(in_st:TStream)
	in_st.Seek(0)

	Local bank:TBank = New TBank
	Local out_st:TStream = OpenStream(bank)		

	Local size% = in_st.Size()
	Local size_dest% = size
	Local in:Byte[size]
	Local out:Byte[size]
		
	in_st.ReadBytes(in,size)
	compress(out,size_dest,in,size)

	out_st.WriteInt(size_dest)
	out_st.WriteInt(size)
	out_st.WriteBytes(out,size_dest)
		
	Return out_st
End Function
	
Function UnPackStream:TStream(in_st:TStream)
	in_st.Seek(0)

	Local bank:TBank = New TBank
	Local out_st:TStream = OpenStream(bank)		

	Local size_dest% = in_st.ReadInt()
	Local size% = in_st.ReadInt()
	Local in:Byte[size]
	Local out:Byte[size]
		
	in_st.ReadBytes(in,size_dest)

	uncompress(out,size,in,size_dest)

	out_st.WriteBytes(out,size)
	Return out_st
End Function