RosettaCodeData/Task/Arithmetic-evaluation/Picat/arithmetic-evaluation.picat

main =>
    print("Enter an expression: "),
    Str = read_line(),
    Exp = parse_term(Str),
    Res is Exp,
    printf("Result = %w\n", Res).