tArgs = {...}
component = require "component"
t=component.tape_drive
f=io.open(tArgs[1])
c=f:read("*a")
f:close()
t.seek(-math.huge)
fh="!"..string.format("%8d",c:len())
print("Header: "..fh)
t.write(fh)
t.write(c)
t.seek(-math.huge)