%externalroutine permit(%string(255)f,p)
%end
