turtle_init(mode="clip") head <- function(size) { turtle_right(90) turtle_forward(size/2) for(i in 1:3) { turtle_left(90) turtle_forward(size) } turtle_left(90) turtle_forward(size/2) }