#!/bin/sh

sed -r -e 's/--/-/' \
       -e 's/^((.+)(..).+\t)\2-\3/\1\2\3/' \
       -e 's/^((.+)(...).+\t)\2t\3/\1\2\3/' \
       -e 's/^((.+)-(..).+\t)\2\3/\1\2-\3/' \
       -e 's/^((.+)-(..).+\t)\2t\3/\1\2-\3/' \
       -e 's/^((.+)ntelu.*\t)\2nnella/\1\2ntelu/' \
       -e 's/^((.+)ntely.*\t)\2nnellä/\1\2ntely/' \
       -e 's/^((.+)ltelu.*\t)\2llella/\1\2ltelu/' \
       -e 's/^((.+)ltely.*\t)\2llellä/\1\2ltely/' \
       -e 's/^((.+)rtelu.*\t)\2rrella/\1\2rtelu/' \
       -e 's/^((.+)rtely.*\t)\2rrellä/\1\2rtely/' \
       -e 's/^((.+)ppelu.*\t)\2pella/\1\2ppelu/' \
       -e 's/^((.+)ppely.*\t)\2pellä/\1\2ppely/' \
       -e 's/^((.+)ttelu.*\t)\2tella/\1\2ttelu/' \
       -e 's/^((.+)ttely.*\t)\2tellä/\1\2ttely/' \
       -e 's/^((.+)kkelu.*\t)\2kella/\1\2kkelu/' \
       -e 's/^((.+)kkely.*\t)\2kellä/\1\2kkely/' \
       -e 's/^((.+)tely.*\t)\2dellä/\1\2tely/' \
       -e 's/^((.+)telu.*\t)\2della/\1\2telu/' \
       -e 's/^((.+)kelu.*\t)\2ella/\1\2kelu/' \
       -e 's/^((.+)kely.*\t)\2ellä/\1\2kely/' \
       -e 's/^((.+)elu.*\t)\2ella/\1\2elu/' \
       -e 's/^((.+)ely.*\t)\2ellä/\1\2ely/' \
       -e 's/^((.+)ilu.*\t)\2illa/\1\2ilu/' \
       -e 's/^((.+)ily.*\t)\2illä/\1\2ily/' \
       -e 's/^((.+)ltaamis.+\t)\2llata/\1\2ltaamis/' \
       -e 's/^((.+)ltäämis.+\t)\2llätä/\1\2ltäämis/' \
       -e 's/^((.+)bbaamis.+\t)\2bata/\1\2bbaamis/' \
       -e 's/^((.+)bbäämis.+\t)\2bätä/\1\2bbäämis/' \
       -e 's/^((.+)ggaamis.+\t)\2gata/\1\2ggaamis/' \
       -e 's/^((.+)ggäämis.+\t)\2gätä/\1\2ggäämis/' \
       -e 's/^((.+)ppaamis.+\t)\2pata/\1\2ppaamis/' \
       -e 's/^((.+)ppäämis.+\t)\2pätä/\1\2ppäämis/' \
       -e 's/^((.+)ttaamis.+\t)\2tata/\1\2ttaamis/' \
       -e 's/^((.+)ttäämis.+\t)\2tätä/\1\2ttäämis/' \
       -e 's/^((.+)ppaamis.+\t)\2kata/\1\2kkaamis/' \
       -e 's/^((.+)ppäämis.+\t)\2kätä/\1\2kkäämis/' \
       -e 's/^((.+)paamis.+\t)\2vata/\1\2paamis/' \
       -e 's/^((.+)päämis.+\t)\2vätä/\1\2päämis/' \
       -e 's/^((.+)toamis.+\t)\2dota/\1\2toamis/' \
       -e 's/^((.+)taamis.+\t)\2data/\1\2taamis/' \
       -e 's/^((.+)täämis.+\t)\2dätä/\1\2täämis/' \
       -e 's/^((.+)koamis.+\t)\2ota/\1\2koamis/' \
       -e 's/^((.+)kaamis.+\t)\2ata/\1\2kaamis/' \
       -e 's/^((.+)käämis.+\t)\2ätä/\1\2käämis/' \
       -e 's/^((.+)lkenemis.+\t)\2ljeta/\1\2lkenemis/' \
       -e 's/^((.+)kenemis.+\t)\2eta/\1\2kenemis/' \
       -e 's/^((.+)enemis.+\t)\2eta/\1\2enemis/' \
       -e 's/^((.+)enemis.+\t)\2etä/\1\2enemis/' \
       -e 's/^((.+)itsemis.+\t)\2ita/\1\2itsemis/' \
       -e 's/^((.+)itsemis.+\t)\2itä/\1\2itsemis/' \
       -e 's/^((.+)amis.+\t)\2ta/\1\2amis/' \
       -e 's/^((.+)ämis.+\t)\2tä/\1\2ämis/' \
       -e 's/^((.+)kemis.+\t)\2hdä/\1\2kemis/' \
       -e 's/^((.+)mis.+\t)\2da/\1\2mis/' \
       -e 's/^((.+)mis.+\t)\2dä/\1\2mis/' \
       -e 's/^((.+)mis.+\t)\2a/\1\2mis/' \
       -e 's/^((.+)mis.+\t)\2ä/\1\2mis/' \
       -e 's/^((.+)is.+\t)\2inen([^\t]+)/\1\2is\3/' \
       -e 's/^((.+)uden.+\t)\2us/\1\2yden/' \
       -e 's/^((.+)yden.+\t)\2ys/\1\2yden/' \
       -e 's/^((.+)(..).+\t)\2-\3/\1\2\3/' \
       -e 's/^((.+)(...).+\t)\2t\3/\1\2\3/' \
       -e 's/^((.+)-(..).+\t)\2t\3/\1\2-\3/' \
       -e 's/^(hylä.+\t)hyljä/\1hylä/' \
       -e 's/^(hylkä.+\t)hyljä/\1hylä/' \
       -e 's/^(pelä.+\t)peljä/\1pelä/' \
       -e 's/^(pelkä.+\t)peljä/\1pelä/' \
       -e 's/^(yhteystieto.+\t)yhteystiedot/\1yhteystieto/' \
       -e 's/^(uutis(..)\t)uutiset\2/\1uutis\2/' \
       -e 's/^((.*)kirjo[ij].+\t)\2kirjo\t/\1\2kirja\t/' \
       -e 's/^((.*)luento[ij].+\t)\2luenta\t/\1\2luento\t/' \
       -e 's/^((.*)luennoi.+\t)\2luenta\t/\1\2luento\t/' \
       -e 's/^((.*)kerto[ij].+\t)\2kerto\t/\1\2kerta\t/' \
       -e 's/^((.*)kerroi.+\t)\2kerto\t/\1\2kerta\t/' \
       -e 's/^((.*)paikko[ij].+\t)\2paikko\t/\1\2paikka\t/' \
       -e 's/^((.*)paikoi.+\t)\2paikko\t/\1\2paikka\t/' \
       -e 's/^((.*)sivusto[ij].+\t)\2sivusta\t/\1\2sivusto\t/' \
       -e 's/^((.*)konei.+\t)\2koni\t/\1\2kone\t/' \
       -e 's/^(Alankoma.+\t)alankomas\t/\1alankomaa\t/' \
       -e 's/^(Yhdysval.+\t)yhdysvalta\t/\1yhdysvallat\t/' \
       -e 's/^(Helsingi.+\t)helsing\t/\1helsinki\t/' \
       -e 's/^(Honduras.+\t)hondurata\t/\1honduras\t/' \
       -e 's/^(Honduras.+\t)hondurasi(a|lle)\t/\1honduras\t/' \
       -e 's/^(.*Afrika.+\t.*)afrika\t/\1afrikka\t/' \
       -e 's/^(.*Amerika.+\t.*)amerika\t/\1amerikka\t/' \
       -e 's/^(.*Euroopa.+\t.*)euroopa\t/\1eurooppa\t/' \
       -e 's/^(Japani.+\t)japan\t/\1japani\t/' \
       -e 's/^([Ii]nterneti.+\t)internetti\t/\1internet\t/' \
       -e 's/^(kirjoitetaan.*\t)kirjoitetaa?n?/\1kirjoittaa\t/' \
       -e 's/^(parem.+\t)parka\t/\1parempi\t/' \
       -e 's/^(Turu[sln].*\t)turu\t/\1turku\t/' \
       -e 's/^(Store.*\t)stori\t/\1store\t/' \
       -e 's/^(Venukse.+\t)venu\t/\1venus\t/' \
       -e 's/^(Cerekse.+\t)ceri\t/\1ceres\t/' \
       -e 's/^(Marsia.*\t)marsa\t/\1mars\t/' \
       -e 's/^(Marsi?in\t)marsi?in\t/\1mars\t/' \
       -e 's/^(Orleansin\t)orleansin\t/\1orleans\t/' \
       -e 's/^(Barcelona.*\t)barcelota\t/\1barcelona\t/' \
       -e 's/^(Kiinaa.*\t)kiinata\t/\1kiina\t/' \
       -e 's/^(.*Meksiko.*\t.*)meksikko\t/\1meksiko\t/g' \
       -e 's/^(.*Jamaika.*\t.*)jamaikka\t/\1jamaika\t/g' \
       -e 's/^(.*Nicaraguan.*\t)nicaraguan\t/\1nicaragua\t/g' \
       -e 's/^(Qatari.*\t)qatari\t/\1qatar\t/' \
       -e 's/^(.+\t)(.*)uutiset/\1\2uutinen/' \
       -e 's/^(.+\t)(.*)suhteet/\1\2suhde/' \
       -e 's/^(.+\t)(.*)kasvot/\1\2kasvo/' \
       -e 's/^(.+\t)(.*)talkoot/\1\2talkoo/' \
       -e 's/^(.+\t)(.*)terveiset/\1\2terveinen/' \
       -e 's/^(.+\t)(.*)messut$/\1\2messu/' \
       -e 's/^(.+\t)(.*)markkinat\t/\1\2markkina\t/' \
       -e 's/^(.+\t)(.*)kalterit\t/\1\2kalteri\t/' \
       -e 's/^(.+\t)(.*)resurssit\t/\1\2resurssi\t/' \
       -e 's/^(pidetä.*\t)pidetä\t/\1pitää\t/' \
       -e 's/^(.+tietokone.*\t)(.*)tietokoa/\1\2tietokone/' \
       -e 's/^(.+kauppaan\t)(.+)kaupata/\1\2kauppa/' \
       -e 's/^(.+alusta.*\t)(.*)alustaa/\1\2alusta/' \
       -e 's/^(.+konsol[ei].*\t)(.*)konsolla/\1\2konsoli/' \
       -e 's/^(.*digiboks[ei].*\t)(.*)digibos[^\t]*/\1\2digiboksi/' \
       -e 's/^(.+suoritin.*\t)(.*)suorit[rtd][aäi][aän]/\1\2suoritin/' \
       -e 's/^(.+suorittim.+\t)(.*)suorit[rtd]in/\1\2suoritin/' \
       -e 's/^(.+suorittime.+\t)(.*)suorittima/\1\2suoritin/' \
       -e 's/^(.+tuomioistuin.*\t)(.*)tuomioistua/\1\2tuomioistuin/' \
       -e 's/^(.*kannettav[ai].*\t)(.*)kantaa/\1\2kannettava/' \
       -e 's/^(.*kannettav[ai].*\t)(.*)kann?k[et]a/\1\2kannettava/' \
       -e 's/^(.+laitte[ei].*\t)(.*)lait[rtd]e[^\t]*/\1\2laite/' \
       -e 's/^(.+selaim[ie].*\t)(.*)selaimk?[iea][^\t]*|selainst[^\t]+|selaa[^\t]*/\1\2selain/' \
       -e 's/^(.+selain.*\t)(.*)selaki|selaa/\1\2selain/' \
       -e 's/^(.+puhelim[ie].+\t)(.*)puhelim[iea][^\t]*/\1\2puhelin/' \
       -e 's/^(.+puhelin.*\t)(.*)puhella/\1\2puhelin/' \
       -e 's/^(.+puhelinta.*\t)(.*)puhelinta\t/\1\2puhelin\t/' \
       -e 's/^(.+lehti\t)(.*)lehtiä/\1\2lehti/' \
       -e 's/^(.+tabletti\t)(.*)tablett[iäa][äa]/\1\2tabletti/' \
       -e 's/^(.+leh[dt][ie].*\t)(.*)leksi/\1\2lehti/' \
       -e 's/^(.+lah[dt][ie].*\t)(.*)laksi/\1\2lahti/' \
       -e 's/^(.+essilta.*\t)(.*)essilta/\1\2essi/' \
       -e 's/^(.*virtuaalilas.*\t)(.*)virtuaalila[st]e?a/\1\2virtuaalilasi/' \
       -e 's/^(.+kellolla.*\t)(.*)kellolla[^\t]*/\1\2kello/' \
       -e 's/^(.+tutka\t)(.*)tuka/\1\2tutka/' \
       -e 's/^(.*poliisi.*)(.*)pola/\1\2poliisi/' \
       -e 's/^(.*poliisi.*)(.*)poliinen/\1\2poliisi/' \
       -e 's/^(.+tapahtuma.*\t)(.*)tapahtua/\1\2tapahtuma/' \
       -e 's/^(.+kaupas[st]aan\t)(.*)kaupas[st]aan/\1\2kauppa/' \
       -e 's/^(.+mallis[st]aan\t)(.*)mallis[st]aan/\1\2malli/' \
       -e 's/^(.*maal[tl]a\t)(.*)maal[tl]a\t/\1\2maa\t/' \
       -e 's/^(.*mere(ltä|llä|lle|stä|ssä)\t.*)mere(ltä|llä|lle|stä|ssä)\t/\1meri\t/' \
       -e 's/^(.*mere(ltä|llä|lle|stä|ssä|n)\t.*)mesi\t/\1meri\t/' \
       -e 's/^(.*järves[st]ä.*\t)(.*)järves[ts]ä\t/\1\2järvi\t/' \
       -e 's/^(.+konsole.+\t)(.*)konsole/\1\2pelikonsoli/' \
       -e 's/^([Tt]asavalta.*\t)tasava\t/\1tasavalta\t/' \
       -e 's/^(.*villen\t)(.*)villa/\1\2ville/' \
       -e 's/^(.*sovellusta)(.*)sovellu\t/\1\2sovellus\t/' \
       -e 's/^(.*kaupungi.+)(.*)kaupung[ia]\t/\1\2kaupunki\t/' \
       -e 's/^(.*hybridi.+\t)(.*)hybriti\t/\1\2hybridi\t/' \
       -e 's/^(Yleensä.*\t)yle\t/\1yleensä\t/' \
       -e 's/^(.*avaruusalus.*\t)(.*)avaruusalu\t/\1\2avaruusalus/'
