# try1.r
 #
  v <- scan("testcase.html",what=character)
  dim(v)
  length(v)
 # done
  rm(list=ls())
  q()