unix.R

print("You have no mail");
running <- T;

while(running) {
  c <- scan(n=1, what="character", quiet=T)
  
  if(c=="uname") {
    print("RUnix 1.1")
  } else if(c=="halt") {
    running <- F
  } else {
    print("Command not found.")
  }
}