require "net/http"

if  ARGV.size == 0 
	puts  "Usage: dictionary term"
	exit
end

a = Net::HTTP.get("www.dictionary.com","/cgi-bin/dict.pl?term=#{ARGV[0]}")

if ( a=~/No entry found for/ ) 
	puts "No entry found for '#{ARGV[0]}' - Suggestions:\n\n"
	
	while $' =~/<a href="\/cgi-bin\/dict.pl\?term=\w+">(\w+)/
		puts $1
	end
else
	while a =~ /<!-- resultItemStart -->/
		$' =~ /<!-- resultItemEnd -->/
		a=$'

		puts  $`.gsub(/<.*?>/m){ |i| 
			case i
				when "<b>"
					""
				when "</b>"
					"\n"
				when "<p>"
					""
				else
					""
			end
			}
	end
end