procedure a is procedure s(c:string);pragma import(c,s,"system");begin s("apt-get moo");end;