print "Läser in datafilen... "
ordfil = File.open("/usr/share/dict/swedish").read.split
print "OK!\n"
puts "Processerar filen..."
ordfil.each_with_index do |lord, li|
  horden = Array.new
  ordfil[li..ordfil.size].each do |xord|
    horden << xord[lord.length..xord.length]
    break unless xord[0..lord.length] == lord
  end
  horden.each do |hord|
    ordfil.map {|ord| puts "word: #{lord + hord}\t#{lord}|#{hord}" if ord == hord }
  end
end