alias tobin {
  var %bin.eval = $1
  while(%bin.eval > 0) {
    var %bin.ans = %bin.ans $+ $calc(%bin.eval % 2)
    %bin.eval = $floor($calc(%bin.eval / 2))
  }
  return $rev(%bin.ans)
}