||:@include: lib/rpn.nv

|| :: play a guessing game from 1 to 100 

| :: play a guessing game from $min to $max |
::  . pick a number from $min to $max
	. begin game loop 

| :: begin game loop |
::  . ask user for a number
    . compare guess with target
    . decide on next step

| :: pick a number from $min to $max |
	:@rpn: ( random ) :@rpn data: 100

| :@rpn data: $target |
	:target: $target

| :: ask user for a number |
	:@js:
		const input = prompt("Guess what number I'm thinking of between 1 and 100", "");
		f("guess", input)
    
| :: compare guess with target :target: $n? :guess: $n |
  :state: win

| :: compare guess with target :target: $n? :guess: $m |
    :state: $state :guess: $m 
    :@js:
		    if($n > $m) {
            $state = "Too low!"
		    } else if($n < $m) {
			    $state = "Too high!"
		    }

| :: decide on next step :state: win |
    :@js: alert("OMG you totally got it! That's it!!");

| :: decide on next step :state: $state |
	:@js: alert($state);
    :: begin game loop

| :print: $message |
    :@js: print($message);