sub word_to_number {
  my (@w) = @_;
  my $res = 0;
  while (@w) {
    $res = $res * 4;
    $res += $value{ pop @w };
  };
};