#!/usr/bin/perl
print unpack("d", pack("Q", hex)), "\n" for <>;