print dec2bin(13) . "\n";
	sub dec2bin {
		return (sprintf "%b",shift);
		}