1f input.r /^f <- function () {$/;" f 2x input.r /^ x <<- 1$/;" g 3y input.r /^y <- 1$/;" g 4g input.r /^g <- function () {$/;" f 5h input.r /^h <- function () {$/;" f 6h0 input.r /^ h0 <- function () {$/;" f function:h 7i input.r /^i <- function () {$/;" f 8z input.r /^ z <- 1$/;" v function:i 9i0 input.r /^ i0 <- function () {$/;" f function:i 10v input.r /^ v <<- 13$/;" g 11u input.r /^ v ->> u$/;" g 12