convert_to_binary <- function(decnum) {
if(decnum > 1) {
convert_to_binary(as.integer(decnum/2))
cat(decnum %% 2)
num = as.integer(readline(prompt="Enter a number: ")) 
print(convert_to_binary(num))