   (void) args;
   (void) env;
   return number(loadimage());
+}
+
+object *fn_cls(object *args, object *env) {
+  (void) env;
+  (void) args;
+  pchar(12);
+  return nil;
 }
 
 // Arduino procedures

  if (args != NULL) stream = istream(first(args));
  if (stream>>8 == I2CSTREAM) return (I2Cwrite(value)) ? tee : nil;
  else if (stream>>8 == SPISTREAM) return number(SPI.transfer(value));
  else if (stream == SERIALSTREAM<<8) Serial.write(value);
  else error(F("'write-byte' unknown stream type"));
  return nil;
}

    int temp = digitvalue(ch);
    result = result * base + temp;
    isnumber = isnumber && (digitvalue(ch)<base);
    ch = gchar();
  }

  buffer[index] = '\0';
