#!/usr/bin/r
write.table(	file      = ""    ,
		sep       = "\t"  ,
		quote     = FALSE ,
		row.names = FALSE ,
		reshape(	data.frame(scan(	"",
							quiet = TRUE,
							sep   = "\t",
							what  = list(pack="", key="",val="")
				)),
				direction = "wide",
				idvar     = "pack",
				timevar   = "key"
		)
)
