BEGIN { FPAT = "\"[^\"]*\"" }

{ print $1 }

END { f("hi there") }

function f (p,   a, n, i)
{
        n = split(p,a)
        print n ; for (i=1; i<=n; i++) print a[i]
}