{walk-graphics
            || 第１引数：　検索対象のコンテナ
            root,
            || 第２引数：　Graphic（コンテナやコントロール）ごとに、以下のプロシージャが実行される
            || 　　　　　　　以下のサンプルでは、GraphicがValueControlの場合に、valueをコンソールに表示している例
            {fn g =>
                {if g isa ValueControl then
                    def v = g asa ValueControl
                    {dump v.name, v.value-as-any}
                }
            }
        }

        def tf1 = {TextField name=”tf-1″}
        def tf2 = {TextField name=”tf-2″}
        def tf3 = {TextField name=”tf-3″}
        def tf4 = {TextField}
        def tf5 = {TextField name=”no-name”}
        def tf6 = {TextField name=”tf-1″}

        def td = {TextDisplay name=”td”}
        def df = {DateField name=”df”}
        def cb = {CommandButton name=”cb”}
       
        def root-graphic =
            {VBox
                {HBox tf1, tf2, tf3}, {HBox td, tf4, tf5, tf6}, df, cb
            }
        || set values of graphic
        {set-values-to-controls
            {Foo},
            root-graphic,
            set-value-proc =
                {fn v, p, c =>
                    {if p.name == c.name then
                        {if-non-null value = {p.get-value v} then
                            set c.value-as-any =
                                {if p.type == int and c.value-type == String then
                                    (value * 3) & “”
                                 else
                                    value
                                }
                        }
                    }
                }
        }

        def (a,b,c) = (3,12,24)
        {gcd a,b,c} == 3

        def (a,b,c) = (2,3,12)
        {lcm a,b,c} == 12

def pcs = {PostalCodes.from-csv
                     {url “file/postal-data/13TOKYO.CSV”},
                     {url “file/postal-data/09TOCHIG.CSV”}
              }
|| 検索
pc = {pcs.search-by-postal-code “1000004”}

        let src:#HashTable = {HashTable “key1”, 10, “key2”, 20, “key3”, {DateTime}}
        def obj-url = {url “file/obj.bin”}

        || 保存
        {save-object-to-url obj-url, src}

        || 読み込み
        def dst = {read-object-from-url obj-url} asa HashTable

        def rs = {RecordSet
                        {RecordFields
                             {RecordField “col1” domain = String, nullable? = false},
                             {RecordField “col2” domain = int},
                             {RecordField “col3”, domain = DateTime, nullable? = false},
                             {RecordField “col4”, domain = {StandardStringDomain},
                             {RecordField “col5”},        || any
                             {RecordField “col6”, nullable? = false} || any
                        }
                 }

|| 暗号化
{encrypt-with-common-key
    　”key1234″, || かぎ
      “this is a text.”, || メッセージ
       {write-open-byte {url secret-file}} || OutputStream（書き出し先）
} 　　

|| 複合化
def result =
    {decrypt-with-common-key
       “key1234”, || かぎ
      {read-open-byte {url secret-file}} || InputStream 読み込み元
    }

let v:View = …..
{with-busy-view v do
    {for i:int = 0 below 100000 do
        {output “押せない！！”}
    }
}

hello.english=abcde
hello.test1=
hello.test2=jdbc.abc%s %d
hello.test3=jdbc.abc%s %d

           {stop-watch
                finish-proc =
                    {proc {elapsed-time:Time}:void
                        {output “elapsed time=” & elapsed-time}
                    }
             do
                {for i = 0 below 100000 do
                    {output “i = ” & i}
                }
            }

            || もしくはfinish-procを省略
            {stop-watch do
                {for i = 0 below 100000 do
                    {output “i = ” & i}
                }
            }
        }