#include <nanoFORTH.h>
///
/// Enter the following Forth code into Serial Monitor input
///  1 5 OUT
///  0 6 OUT
///  : red 1 5 OUT 0 6 OUT ;
///  : blu 0 5 OUT 1 6 OUT ;
///  blu
///  : xy FOR red 500 DLY blu 500 DLY NXT ;
///  10 xy
///  FGT xy
///  : xy FOR red 200 DLY blu 300 DLY I . NXT ;
///  20 xy
///  1 AIN
///  DRP
///  : lit 1 AIN 200 > ;
///  : ?z IF red ELS blu THN ;
///  lit ?z
///  : xyz BGN lit ?z 7 IN UTL ;
///  xyz
///
void setup() {
  Serial.begin(115200);
  while(!Serial);

  pinMode(5, OUTPUT);       // red LED
  pinMode(6, OUTPUT);       // blue LED
  pinMode(7, INPUT);        // push button

  digitalWrite(6, HIGH);    // turn blue ON
  
  n4_setup();
}

void loop() {
  n4_run();
}