procedure main(A)
   n := \A[1] | 10
   runit(P,n) | write()
   runit(Q,n) | write()
end

procedure runit(p,n)
   every 1 to n do p()
end

procedure P(); writes("."); end
procedure Q(); writes("+"); end