ObjectScript: A new programming language

[FILE] ../../examples-os/add_user_module.os
[1] for(var i, s in ["123", "12w", 1234, " df", "    "]){

begin function
  begin locals, total 6
    0 _E
    1 _G
  end locals
  begin scope
    begin locals 4
      2 i
      3 s
      4 #func
      5 #valid
    end locals
    new local var i (2 0)

    new local var s (3 0)

    new local var #func (4 0 temp)

    new local var #valid (5 0 temp)

    begin code list
      begin set local var
        begin call method
          begin array 5
            begin set auto index
              push const string "123"
            end set auto index
            ,
            begin set auto index
              push const string "12w"
            end set auto index
            ,
            begin set auto index
              push const number 1234
            end set auto index
            ,
            begin set auto index
              push const string " df"
            end set auto index
            ,
            begin set auto index
              push const string "    "
            end set auto index
          end array
          begin params 1
            push const string "__iter"
          end params ret values 1
        end call method ret values 1
      end set local var #func (4 0 temp)

      begin loop
        begin set local var
          begin set local var
            begin set local var
              begin call
                get local var #func (4 0 temp)
                begin params 0
                end params ret values 0
              end call ret values 3
            end set local var s (3 0)
          end set local var i (2 0)
        end set local var #valid (5 0 temp)

        begin if
          begin bool exp
            begin logic not
              get local var #valid (5 0 temp)
            end logic not
          end bool exp
          begin then
            break
          end then
        end if ret values 0


[2] print("my.isdigit("..s..") = "my.isdigit(s)" my.hash("..s..") = "my.hash(s))

        begin scope
          begin call method
            get local var _E (0 0)
            begin params 5
              push const string "print"
              ,
              begin operator ..
                begin operator ..
                  push const string "my.isdigit("
                  get local var s (3 0)
                end operator ..
                push const string ") = "
              end operator ..
              ,
              begin call method
                get env var my
                begin params 2
                  push const string "isdigit"
                  ,
                  get local var s (3 0)
                end params ret values 2
              end call method ret values 1
              ,
              begin operator ..
                begin operator ..
                  push const string " my.hash("
                  get local var s (3 0)
                end operator ..
                push const string ") = "
              end operator ..
              ,
              begin call method
                get env var my
                begin params 2
                  push const string "hash"
                  ,
                  get local var s (3 0)
                end params ret values 2
              end call method ret values 1
            end params ret values 5
          end call method ret values 0
        end scope ret values 0
      end loop ret values 0
    end code list ret values 0
  end scope ret values 0

  begin code list
    begin return
      get local var _E (0 0)
    end return values 1
  end code list ret values 0
end function