aton_s(str)
{
	local i = 0;
	local sign = 0;
	local out = 0;

	loop {
		if ([str + i] == '-')
			sign = sign == 0;
		else if ([str + i] != '+')
			break;
		i++;
	}
	loop {
		if ([str + i] == 0 | isdigit([str + i]) == 0)
			break;
		out = out * 10 + [str + i] - '0';
		i++;
	}
	if (sign)
		return (0 - out);
	return out;
}