Boris Kuznetsov achempion

## monkey-patching.rb

module MyStringThing
  refine String do
    def at(num)
      self[num..num]
    end
  end
end

class A

## sample.hs
main :: IO ()

main = do
    str <- getLine
    let [a,b] = words str
    return ((read a :: Int) + (read b :: Int))

	module MyStringThing
	refine String do
	def at(num)
	self[num..num]
	end
	end
	end

	class A
	main :: IO ()

	main = do
	str <- getLine
	let [a,b] = words str
	return ((read a :: Int) + (read b :: Int))