#!/usr/bin/perl -P
use POSIX qw(floor);
#define this ($x,$y)=@ARGV or die;
#define and $c=($x%2!=0)?$y:0;while($x!=1){$x=floor($x/2);$y+=$y;$c+=($x%2!=0)?$y:0;}
#define that print
#define equals $c,"\n";

this and that equals

Disclaimer: This is an unofficial UMMS page.