lama_byterun/regression/test014.lama

var n;

n := read ();

while n > 0 do

  if n < 1000
  then
    if n < 500
    then
      if n < 250 
      then
        if n < 125
	then
	  if n < 63
	  then
	    if n < 32
	    then
	      write (1)
	    fi
	  fi
	fi
      fi
    fi
  fi;

  n := n - 1

od
local -> var; scope reformatted; singleton is killed finally 2021-01-31 22:25:31 +03:00			`var n;`
Global definitions; regression tests fixed 2019-09-19 18:37:08 +03:00
Strings/arrays/builtins in int/sm 2018-04-25 01:06:18 +03:00			`n := read ();`
Control constructs 2018-03-20 23:13:51 +03:00
			`while n > 0 do`

			`if n < 1000`
			`then`
			`if n < 500`
			`then`
			`if n < 250`
			`then`
			`if n < 125`
			`then`
			`if n < 63`
			`then`
			`if n < 32`
			`then`
			`write (1)`
			`fi`
			`fi`
			`fi`
			`fi`
			`fi`
			`fi;`

			`n := n - 1`

			`od`