* C interoperatibility example (without imports)
public function main
    types
        socket prototype
            linkage
                domain word
                type word
                protocol word
                fd word
            procedure using domain type protocol returning fd

        close prototype
            linkage
                fd word
                status word
            procedure using fd returning status

        AF_INET constant to 2
        SOCK_STREAM constant to 2
    linkage
        status word
    storage
        fd word
    procedure returning status
        call socket using AF_INET SOCK_STREAM 0 returning fd
        display "fd is " fd
        call close using fd returning status