classes.rb

graph = {}
ObjectSpace.each_object(Class) do |klass|
  sup = klass.superclass and graph[klass] = sup
end

puts "digraph{"
graph.map do |key, value|
  puts %("#{key}"\n"#{key}"->"#{value}")
end
puts"}"