strncmp(s1, s2, n)
{
local i;
if (n-- == 0)
return (0);
i = 0;
loop
if (i == n | [s1 + i] != [s2 + i] | [s1 + i] == 0 | [s2 + i] == 0)
return ([s1 + i] - [s2 + i]);
i++;
}