procedure main()
every s := !"+-*/" do
    write(s(3,4))
end