main :- arg(2,"foo",V), writeq(V), nl.