sub to_bin {
  my $num = shift;
  my $ret = '';
  while ($num) {
    $ret = (($num % 2) ? 0 : 1) . $ret;
    $num >>= 1;
  }
  return $ret;
}