sub get_str { return $str; }
sub get_h { return $h; }
sub get_l { return $l; }