proc double(){
	if($1 > 1){
		double($1/2)
	}
	print($1)
}
double(1024)