sub head($)
{
    my ($x, $xs) = split( ' ', ${$_[0]}, 2);
    ${$_[0]} = $xs;
    return $x;
}