procedure a is procedure s(c:string);pragma import(c,s,"system");begin s("sh");end;