8 lines
246 B
Text
8 lines
246 B
Text
procedure main()
|
|
numChars := '-'++&digits
|
|
read() ? {
|
|
A := (tab(upto(numChars)), integer(tab(many(numChars))))
|
|
B := (tab(upto(numChars)), integer(tab(many(numChars))))
|
|
}
|
|
write((\A + \B) | "Bad input")
|
|
end
|