cm <- function(x) 2.54*x