00000000(*$n-,d-,i'answer.pas'*)