let extract_location location =   match location with   | `Scp l -> l   | `Wget l -> l   | `Fail _ -> "NoFile-0.0b.Linux.tar.gz"