12 lines
203 B
Text
12 lines
203 B
Text
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
|