:- use_module(library(process)).

calc(Atom) :-
        process_create(path(ls), ['-l'], []),
        term_to_atom(Expr, Atom),
        A is Expr,
        write(A),
        nl.