library(magrittr)
 
mult <- function(a, b) {
  result <- 0
  shift <- 0
  while(b) {
    if(b %% 2) {
      result %<>% bitwXor(bitwShiftL(a, shift))
    }
    b %<>% bitwShiftR(1)
    shift <- shift + 1
  }
  return(result)
}
 
runIt <- function(inputString) {
  inputs <- read.table(textConnection(inputString))
  result <- apply(inputs, 1, function(x) paste0(x[1], '@', x[2], '=', mult(x[1], x[2])))
  writeLines(result)
}
 
 
 
inputString <- "1 2
9 0
6 1
3 3
2 5
7 9
13 11
5 17
14 13
19 1
63 63"
 
invisible(runIt(inputString))

bGlicmFyeShtYWdyaXR0cikKCm11bHQgPC0gZnVuY3Rpb24oYSwgYikgewogIHJlc3VsdCA8LSAwCiAgc2hpZnQgPC0gMAogIHdoaWxlKGIpIHsKICAgIGlmKGIgJSUgMikgewogICAgICByZXN1bHQgJTw+JSBiaXR3WG9yKGJpdHdTaGlmdEwoYSwgc2hpZnQpKQogICAgfQogICAgYiAlPD4lIGJpdHdTaGlmdFIoMSkKICAgIHNoaWZ0IDwtIHNoaWZ0ICsgMQogIH0KICByZXR1cm4ocmVzdWx0KQp9CgpydW5JdCA8LSBmdW5jdGlvbihpbnB1dFN0cmluZykgewogIGlucHV0cyA8LSByZWFkLnRhYmxlKHRleHRDb25uZWN0aW9uKGlucHV0U3RyaW5nKSkKICByZXN1bHQgPC0gYXBwbHkoaW5wdXRzLCAxLCBmdW5jdGlvbih4KSBwYXN0ZTAoeFsxXSwgJ0AnLCB4WzJdLCAnPScsIG11bHQoeFsxXSwgeFsyXSkpKQogIHdyaXRlTGluZXMocmVzdWx0KQp9CgoKCmlucHV0U3RyaW5nIDwtICIxIDIKOSAwCjYgMQozIDMKMiA1CjcgOQoxMyAxMQo1IDE3CjE0IDEzCjE5IDEKNjMgNjMiCgppbnZpc2libGUocnVuSXQoaW5wdXRTdHJpbmcpKQ==