# -*- coding: utf-8 -*-
#
# この問題，簡単な上にだるさがやばいのでPerl版を使います．
# cpan List::MoreUtils
# しといてください．
require 'open-uri'

open("http://www.udp.jp/misc/project-euler/perl/54.pl") do |nio|
  IO.popen("perl", "r+") do |cio|
    cio.puts nio.read
    cio.close_write
    if (cio.gets =~ /\((\d+)\)/)
      puts $1
    end
  end
end