<span class="hljs-keyword">package</span> <span class="hljs-keyword">body</span> <span class="hljs-title">Sqlite.Simple </span><span class="hljs-keyword">is</span>

      Foo : <span class="hljs-type">int</span> := int<span class="hljs-symbol">&#x27;Size</span>;
      Bar : <span class="hljs-type">int</span> := long<span class="hljs-symbol">&#x27;Size</span>;

      Error_Message_C : <span class="hljs-type">chars_ptr</span> := Sqlite_Errstr (Error);
      Error_Message : <span class="hljs-type">String</span> := Null_Ignore_Value (Error_Message_C);
   <span class="hljs-keyword">begin</span>

      Named : <span class="hljs-keyword">for</span> Index <span class="hljs-keyword">in</span> Foo..Bar <span class="hljs-keyword">loop</span>
          Put (<span class="hljs-string">&quot;Hi[]{}&quot;</span>);
      <span class="hljs-keyword">end</span> <span class="hljs-keyword">loop</span> Named;

      Foo := Bar;
   <span class="hljs-keyword">end</span> Message;

<span class="hljs-keyword">end</span> Sqlite.Simple;
