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