1 files changed, 0 insertions, 91 deletions
diff --git a/examples/sammie/ParamSammieFin.gf b/examples/sammie/ParamSammieFin.gf
deleted file mode 100644
index 4b976a68c..000000000
--- a/examples/sammie/ParamSammieFin.gf
+++ /dev/null
@@ -1,91 +0,0 @@
-instance ParamSammieFin of ParamSammie = open 
-  SyntaxFin,
-  ExtraFin,
-  SymbolicFin,
-  (R = ResFin), ----
-  ParadigmsFin,
-  (C = ConstructX),
-  Prelude 
-in {
-
-oper 
-
-  song_N = mkN "laulu" ;
-  track_N = mkN "kappale" ;
-  album_N = mkN "albumi" ;
-  record_N = mkN "levy" ;
-  cd_N = mkN "cd-levy" ;
-  playlist_N = mkN "soittolista" ;
-  artist_N = mkN "artisti" ;
-  number_N = mkN "numero" ;
-  rock_N = mkN "rock" ;
-
-  new_A = mkA (mkN "uusi" "uuden" "uusia") ;
-
-  add_V3 = 
-    dirV3 (mkV "lisätä") illative ;
-  remove_V3 = 
-    dirV3 (mkV "poistaa") ablative ;
-  show_V3 = mkV3 (mkV "näyttää") (casePrep allative) accPrep ;
-
-  create_V2 = dirV2 (mkV "luoda") ;
-  tell_V2Q = mkV2Q (mkV "sanoa") (casePrep allative) ;
-  play_V2 = dirV2 (mkV "soittaa") ;
-  show_V2Q = mkV2Q (mkV "näyttää") (casePrep allative) ;
-  return_V2 = mkV2 (mkV "palata") to_Prep ;
-  goto_V2 = mkV2 (mkV "mennä") to_Prep ;
-  record_V2 = dirV2 (mkV "levyttää") ;
-  make_V2 = dirV2 (mkV "tehdä" "tekee" "teen" "tekevät" "tehkää" "tehdään"
-      "teki" "tein" "tekisi" "tehnyt" "tehty" "tehdyn") ; 
-
-  stop_V = mkV "lopettaa" ;
-
-  back_Adv = mkAdv "takaisin" ;
-
-  what_IAdv = C.mkIAdv "mikä" ;
-
-  previous_A = mkA "edellinen" ; 
-  next_A = mkA "seuraava" ; 
-  please_PConj = C.mkPConj ["ole hyvä"] ;
-
-  mainmenu_NP = mkNP the_Art (mkN "päävalikko") ;
-
-  goback_VP = mkVP (mkVP (mkV "mennä")) back_Adv ;
-  shutup_VP = mkVP (mkAdv "hiljaa") ;
-  pause_VP  = mkVP (dirV2 (mkV "pitää")) (mkNP the_Art (mkN "tauko")) ;
-  resume_VP = mkVP (mkVP (mkV "palata")) (mkAdv "asiaan") ;
-
-  whatever_Utt = C.mkUtt ["mitä tahansa"] ;
-
-  typeWithGenre x genre =
-    mkCN x (mkRS (RelExistNP in_Prep which_RP (mkNP genre))) ;
-
-  name = mkPN ;
-
-  WhatName = mkQCl what_IAdv ;
-
-
-  past = <presentTense,anteriorAnt> ;
-
-  imperative vp = 
-      mkUtt (mkImp vp)
-    | mkUtt (mkQS (mkQCl (mkCl (mkNP youSg_Pron) can_VV vp)))
-    | mkUtt (mkCl (mkNP i_Pron) want_VV vp)
-    | mkUtt vp
-    ;
-
-  previous cn = mkNP the_Art (mkCN previous_A cn) ;
-  next cn = mkNP the_Art (mkCN next_A cn) ;
-
-  what_say = mkUtt whatPart_IP ;
-
-  all_art = the_Art ;
-
-  artist_Prep = casePrep ablative ;
-
-  this cn = 
-      mkNP this_Quant
-    | mkNP the_Art (mkCN (mkA "tämänhetkinen") cn)
-    ;
-
-}