"#stream.isbpl" include

func main {
    pop
    def id "helloworld.isbpl" STREAM.create.file.out stream =id
    def s "func main {\n    \"Hello World!\\n\" puts\n    0\n}" _array =s

    def i 0 =i
    while { i s alen lt } {
        ( s i aget ) id STREAM.write stream
        i inc
    }

    id STREAM.close stream
    
    "Testing: \n" struppercase puts
    "helloworld.isbpl" include
    main pop
    "TEST DONE\n" strlowercase puts

    0
}