{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections #-}

-- | This module provides translations (and exercises relying on translations) for each of the course lessons.
module Study.Courses.English.Grammar.Introduction.Translations where

import Core
import Study.Framework.Lojban.TranslationUtils
import Util (combineGenerators, combineGeneratorsUniformly, generatorFromSingleton, generatorFromList)

-- * Lesson 1: Basics 1

-- | Translations for the first lesson.
translations1 :: TranslationGenerator
translations1 :: TranslationGenerator
translations1 = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
dunda, TranslationGenerator
demonstrative] where
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do dunda ti mi"], [LojbanSentence
"You give me this.", LojbanSentence
"You give us this."])
        , ([LojbanSentence
"do dunda ta mi"], [LojbanSentence
"You give me that.", LojbanSentence
"You give us that."])
        , ([LojbanSentence
"mi dunda ti do"], [LojbanSentence
"I give you this.", LojbanSentence
"We give you this."])
        , ([LojbanSentence
"mi dunda ta do"], [LojbanSentence
"I give you that.", LojbanSentence
"We give you that."])
        ]
    demonstrative :: TranslationGenerator
demonstrative = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ti pelxu"], [LojbanSentence
"This is yellow.", LojbanSentence
"These are yellow."])
        , ([LojbanSentence
"ta pelxu"], [LojbanSentence
"That is yellow.", LojbanSentence
"Those are yellow."])
        , ([LojbanSentence
"ta zdani"], [LojbanSentence
"That is a house.", LojbanSentence
"Those are houses."])
        ]

-- * Lesson 2: Basics 2

-- | Overall translations for the second lesson.
translations2 :: TranslationGenerator
translations2 :: TranslationGenerator
translations2 = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
1, TranslationGenerator
translations2_nice), (Int
4, TranslationGenerator
translations2_normal)]

-- | Interesting translations for the second lesson.
--
-- Defined separately so that they may be reused in the third lesson.
translations2_nice :: TranslationGenerator
translations2_nice :: TranslationGenerator
translations2_nice = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
tavlaReflexive, TranslationGenerator
dundaReordered] where
    tavlaReflexive :: TranslationGenerator
tavlaReflexive = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi tavla mi", LojbanSentence
"mi tavla vo'a"], [LojbanSentence
"I am talking to myself.", LojbanSentence
"I was talking to myself.", LojbanSentence
"We were talking to ourselves."])
        , ([LojbanSentence
"do tavla do", LojbanSentence
"do tavla vo'a"], [LojbanSentence
"You are talking to yourself."])
        ]
    dundaReordered :: TranslationGenerator
dundaReordered = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do dunda ti mi"], [LojbanSentence
"You gave me this.", LojbanSentence
"You gave us this."])
        , ([LojbanSentence
"mi dunda ta do"], [LojbanSentence
"I gave you that.", LojbanSentence
"We gave you that."])
        ]

-- | Regular translations for the second lesson.
translations2_normal :: TranslationGenerator
translations2_normal :: TranslationGenerator
translations2_normal = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly ([TranslationGenerator] -> TranslationGenerator)
-> [TranslationGenerator] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator]
others [TranslationGenerator]
-> [TranslationGenerator] -> [TranslationGenerator]
forall a. [a] -> [a] -> [a]
++ [TranslationGenerator
talkingWithSecondPerson, TranslationGenerator
pendo, TranslationGenerator
prenu, TranslationGenerator
dunda, TranslationGenerator
demonstrative, TranslationGenerator
zdani] where
    talkingWithSecondPerson :: TranslationGenerator
talkingWithSecondPerson = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi tavla do"], [LojbanSentence
"I am talking to you.", LojbanSentence
"I was talking to you.", LojbanSentence
"We are talking to you.", LojbanSentence
"We were talking to you."])
        , ([LojbanSentence
"do tavla mi"], [LojbanSentence
"You are talking to me.", LojbanSentence
"You are talking to us."])
        ]
    pendo :: TranslationGenerator
pendo = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do pendo mi"], [LojbanSentence
"You are my friend."])
        , ([LojbanSentence
"mi pendo do"], [LojbanSentence
"I am your friend."])
        ]
    prenu :: TranslationGenerator
prenu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi prenu"], [LojbanSentence
"I am a person."])
        , ([LojbanSentence
"do prenu"], [LojbanSentence
"You are a person."])
        ]
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi dunda zo'e do"], [LojbanSentence
"I gave something to you."])
        , ([LojbanSentence
"do dunda zo'e mi"], [LojbanSentence
"You gave something to me."])
        ]
    demonstrative :: TranslationGenerator
demonstrative = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ti mlatu"], [LojbanSentence
"This is a cat.", LojbanSentence
"These are cats."])
        , ([LojbanSentence
"ta mlatu"], [LojbanSentence
"That is a cat.", LojbanSentence
"Those are cats."])
        , ([LojbanSentence
"ti pelxu"], [LojbanSentence
"This is yellow.", LojbanSentence
"These are yellow."])
        , ([LojbanSentence
"ta pelxu"], [LojbanSentence
"That is yellow.", LojbanSentence
"Those are yellow."])
        , ([LojbanSentence
"ta zdani"], [LojbanSentence
"That is a house.", LojbanSentence
"Those are houses."])
        ]
    zdani :: TranslationGenerator
zdani = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- not marked as "nice" because the cannonical answer changes to "mi se zdani" in the next lesson
        [ ([LojbanSentence
"zdani mi"], [LojbanSentence
"I have a house.", LojbanSentence
"We have a house.", LojbanSentence
"We have houses."])
        -- not marked as "nice" because the cannonical answer changes to "do se zdani" in the next lesson
        , ([LojbanSentence
"zdani do"], [LojbanSentence
"You have a house.", LojbanSentence
"You have houses."])
        ]
    others :: [TranslationGenerator]
others = ([LojbanSentence], [LojbanSentence]) -> TranslationGenerator
forall a. a -> StdGen -> (a, StdGen)
generatorFromSingleton (([LojbanSentence], [LojbanSentence]) -> TranslationGenerator)
-> [([LojbanSentence], [LojbanSentence])] -> [TranslationGenerator]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
        -- not marked as "nice" because it becomes a special exercise in the next lesson ("translate without zo'e")
        [ ([LojbanSentence
"mi tavla zo'e mi", LojbanSentence
"mi tavla zo'e vo'a"], [LojbanSentence
"I was talking about myself.", LojbanSentence
"We were talking about ourselves.", LojbanSentence
"I will talk about myself."])
        -- not marked as "nice" because it becomes a special exercise in the next lesson ("translate without zo'e")
        , ([LojbanSentence
"mi tavla zo'e do"], [LojbanSentence
"I was talking about you.", LojbanSentence
"We were talking about you.", LojbanSentence
"I am talking about you.", LojbanSentence
"We are talking about you.", LojbanSentence
"I will talk about you.", LojbanSentence
"We will talk about you."])
        -- not marked as "nice" because it becomes a special exercise in the next lesson ("translate without zo'e")
        , ([LojbanSentence
"mi dunda zo'e do"], [LojbanSentence
"I gave you something.", LojbanSentence
"I will give you something."])
        ]

-- * Lesson 3: Basics 3

-- | Overall translations for the third lesson.
translations3 :: TranslationGenerator
translations3 :: TranslationGenerator
translations3 =  [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
1, TranslationGenerator
translations3_nice), (Int
10, TranslationGenerator
translations3_nice), (Int
5, TranslationGenerator
translations3_normal)]

-- | Translations for the third lesson, with the restriction that some intermediate place is missing.
--
-- Defined separately so that they may be used in 'Translate without using "zo'e"' exercises.
translations3_restricted :: TranslationGenerator
translations3_restricted :: TranslationGenerator
translations3_restricted = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
talkingAbout), (Int
1, TranslationGenerator
gaveSomething)] where
    talkingAbout :: TranslationGenerator
talkingAbout = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi tavla fi mi", LojbanSentence
"mi tavla fi vo'a"], [LojbanSentence
"I was talking about myself.", LojbanSentence
"We were talking about ourselves.", LojbanSentence
"I will talk about myself."])
        , ([LojbanSentence
"mi tavla fi do"], [LojbanSentence
"I was talking about you.", LojbanSentence
"We were talking about you.", LojbanSentence
"I am talking about you.", LojbanSentence
"We are talking about you.", LojbanSentence
"I will talk about you.", LojbanSentence
"We will talk about you."])
        , ([LojbanSentence
"(|lo prenu ku) tavla fi mi"], [LojbanSentence
"Somebody was talking about me.", LojbanSentence
"Somebody was talking about us."])
        , ([LojbanSentence
"(|lo prenu ku) tavla fi do"], [LojbanSentence
"Somebody was talking about you."])
        , ([LojbanSentence
"mi tavla fi lo mlatu ku"], [LojbanSentence
"I was talking about the cat.", LojbanSentence
"I was talking about the cats.", LojbanSentence
"I was talking about cats", LojbanSentence
"I am talking about the cat.", LojbanSentence
"I am talking about the cats.", LojbanSentence
"I am talking about cats."])
        , ([LojbanSentence
"(|lo prenu ku) tavla fi lo mlatu ku"], [LojbanSentence
"Somebody was talking about the cat.", LojbanSentence
"Somebody was talking about the cats.", LojbanSentence
"Somebody was talking about cats."])
        , ([LojbanSentence
"mi tavla fi lo gerku ku"], [LojbanSentence
"I was talking about the dog.", LojbanSentence
"I was talking about the dogs.", LojbanSentence
"I was talking about dogs.", LojbanSentence
"I am talking about the dog.", LojbanSentence
"I am talking about the dogs.", LojbanSentence
"I am talking about dogs."])
        , ([LojbanSentence
"(|lo prenu ku) tavla fi lo gerku ku"], [LojbanSentence
"Somebody was talking about the dog.", LojbanSentence
"Somebody was talking about the dogs.", LojbanSentence
"Somebody was talking about dogs."])
        , ([LojbanSentence
"mi tavla fi lo se dunda ku"], [LojbanSentence
"I was talking about the gift.", LojbanSentence
"We were talking about the gift.", LojbanSentence
"I am talking about the gift.", LojbanSentence
"We are talking about the gift."])
        ]
    gaveSomething :: TranslationGenerator
gaveSomething = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi dunda fi do"], [LojbanSentence
"I gave you something.", LojbanSentence
"I will give you something."])
        , ([LojbanSentence
"do dunda fi mi"], [LojbanSentence
"You gave me something."])
        ]

-- | Interesting translations for the third lesson.
--
-- Defined separately so that they may be reused in the checkpoint lesson (Lesson 7).
translations3_nice :: TranslationGenerator
translations3_nice :: TranslationGenerator
translations3_nice = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators ([(Int, TranslationGenerator)] -> TranslationGenerator)
-> [(Int, TranslationGenerator)] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int
2, TranslationGenerator
translations3_restricted), (Int
2, TranslationGenerator
teaching)] [(Int, TranslationGenerator)]
-> [(Int, TranslationGenerator)] -> [(Int, TranslationGenerator)]
forall a. [a] -> [a] -> [a]
++ ((Int
1,) (TranslationGenerator -> (Int, TranslationGenerator))
-> [TranslationGenerator] -> [(Int, TranslationGenerator)]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [TranslationGenerator
hasHouse, TranslationGenerator
niceGift, TranslationGenerator
giftingAnimal, TranslationGenerator
friends, TranslationGenerator
pelxu, TranslationGenerator
others]) where
    hasHouse :: TranslationGenerator
hasHouse = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo ctuca ku se zdani"], [LojbanSentence
"The instructor has a house."])
        , ([LojbanSentence
"lo prenu ku se zdani"], [LojbanSentence
"The person has a house."])
        , ([LojbanSentence
"lo tavla ku se zdani", LojbanSentence
"lo cusku ku se zdani"], [LojbanSentence
"The speaker has a house."])
        , ([LojbanSentence
"lo se tavla ku se zdani"], [LojbanSentence
"The listener has a house."])
        , ([LojbanSentence
"lo dunda ku se zdani"], [LojbanSentence
"The donor has a house."])
        , ([LojbanSentence
"lo te dunda ku se zdani"], [LojbanSentence
"The beneficiary (of the gift) has a house."])
        ]
    niceGift :: TranslationGenerator
niceGift = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
beautifulGift, TranslationGenerator
likedGift] where
        beautifulGift :: TranslationGenerator
beautifulGift = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo se dunda ku melbi mi"], [LojbanSentence
"The gift is beautiful to me.", LojbanSentence
"The gifts are beautiful to me."])
            , ([LojbanSentence
"lo se dunda ku melbi"], [LojbanSentence
"The gift is beautiful.", LojbanSentence
"The gifts are beautiful."])
            ]
        likedGift :: TranslationGenerator
likedGift = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo te dunda ku nelci lo se dunda ku"], [LojbanSentence
"The recipient liked the gift.", LojbanSentence
"The recipient will like the gift.", LojbanSentence
"The recipients liked the gifts."])
            , ([LojbanSentence
"lo ctuca ku nelci lo se dunda ku"], [LojbanSentence
"The instructor liked the gift.", LojbanSentence
"The instructor will like the gift."])
            , ([LojbanSentence
"mi nelci lo se dunda ku"], [LojbanSentence
"I liked the gift.", LojbanSentence
"I liked the gifts."])
            ]
    giftingAnimal :: TranslationGenerator
giftingAnimal = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- mlatu
        [ ([LojbanSentence
"mi dunda lo mlatu ku lo pendo ku"], [LojbanSentence
"I gave the cat to a friend.", LojbanSentence
"I gave the cats to a friend."])
        , ([LojbanSentence
"mi te dunda lo mlatu ku"], [LojbanSentence
"I was given a cat.", LojbanSentence
"We were given a cat."])
        , ([LojbanSentence
"(|lo prenu ku) dunda lo mlatu ku lo ctuca ku"], [LojbanSentence
"Somebody gave a cat to the instructor", LojbanSentence
"Somebody gave the cat to the instructor.", LojbanSentence
"Somebody gave the cats to the instructor."])
        , ([LojbanSentence
"lo ctuca ku dunda lo mlatu ku mi"], [LojbanSentence
"The instructor gave me a cat.", LojbanSentence
"The instructor gave me the cat.", LojbanSentence
"The instructor gave me the cats.", LojbanSentence
"The instructor gave us a cat.", LojbanSentence
"The instructor gave us the cat.", LojbanSentence
"The instructor gave us the cats."])
        , ([LojbanSentence
"(|lo prenu ku) dunda lo mlatu ku mi"], [LojbanSentence
"Somebody gave me a cat.", LojbanSentence
"Somebody gave me the cat.", LojbanSentence
"Somebody gave me the cats.", LojbanSentence
"Somebody gave us a cat.", LojbanSentence
"Somebody gave us the cat.", LojbanSentence
"Somebody gave us the cats."])
        -- gerku
        , ([LojbanSentence
"mi dunda lo gerku ku lo pendo ku"], [LojbanSentence
"I gave the dog to a friend.", LojbanSentence
"I gave the dogs to a friend."])
        , ([LojbanSentence
"mi te dunda lo gerku ku"], [LojbanSentence
"I was given a dog.", LojbanSentence
"We were given a dog."])
        , ([LojbanSentence
"(|lo prenu ku) dunda lo gerku ku lo ctuca ku"], [LojbanSentence
"Somebody gave a dog to the instructor", LojbanSentence
"Somebody gave the dog to the instructor.", LojbanSentence
"Somebody gave the dogs to the instructor."])
        , ([LojbanSentence
"lo ctuca ku dunda lo gerku ku mi"], [LojbanSentence
"The instructor gave me a dog.", LojbanSentence
"The instructor gave me the dog.", LojbanSentence
"The instructor gave me the dogs.", LojbanSentence
"The instructor gave us a dog.", LojbanSentence
"The instructor gave us the dog.", LojbanSentence
"The instructor gave us the dogs."])
        , ([LojbanSentence
"(|lo prenu ku) dunda lo gerku ku mi"], [LojbanSentence
"Somebody gave me a dog.", LojbanSentence
"Somebody gave me the dog.", LojbanSentence
"Somebody gave me the dogs.", LojbanSentence
"Somebody gave us a dog.", LojbanSentence
"Somebody gave us the dog.", LojbanSentence
"Somebody gave us the dogs."])
        ]
    teaching :: TranslationGenerator
teaching = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ctuca lo mlatu ku"], [LojbanSentence
"I am teaching the cat.", LojbanSentence
"I am teaching the cats.", LojbanSentence
"I taught the cat.", LojbanSentence
"I taught the cats.", LojbanSentence
"We are teaching the cat.", LojbanSentence
"We are teaching the cats."])
        , ([LojbanSentence
"mi ctuca lo gerku ku"], [LojbanSentence
"I am teaching the dog.", LojbanSentence
"I am teaching the dogs.", LojbanSentence
"I taught the dog.", LojbanSentence
"I taught the dogs.", LojbanSentence
"We are teaching the dog.", LojbanSentence
"We are teaching the dogs."])
        , ([LojbanSentence
"mi ctuca do"], [LojbanSentence
"I will teach you.", LojbanSentence
"We will teach you.", LojbanSentence
"I taught you.", LojbanSentence
"We taught you."])
        , ([LojbanSentence
"do ctuca mi"], [LojbanSentence
"You will teach me.", LojbanSentence
"You will teach us.", LojbanSentence
"You taught me.", LojbanSentence
"You taught us."])
        , ([LojbanSentence
"mi ctuca mi", LojbanSentence
"mi ctuca vo'a"], [LojbanSentence
"I taught myself."])
        , ([LojbanSentence
"(|lo prenu ku) ctuca mi"], [LojbanSentence
"Somebody taught me.", LojbanSentence
"Somebody taught us."])
        , ([LojbanSentence
"(|lo prenu ku) ctuca do"], [LojbanSentence
"Somebody taught you."])
        ]
    friends :: TranslationGenerator
friends = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo tavla ku pendo mi", LojbanSentence
"lo cusku ku pendo mi"], [LojbanSentence
"The speaker is my friend.", LojbanSentence
"The speakers are my friends."])
        , ([LojbanSentence
"lo se tavla ku pendo mi"], [LojbanSentence
"The listener is my friend.", LojbanSentence
"The listeners are my friends."])
        , ([LojbanSentence
"lo dunda ku pendo mi"], [LojbanSentence
"The donor is my friend.", LojbanSentence
"The donors are my friends."])
        , ([LojbanSentence
"lo te dunda ku pendo mi"], [LojbanSentence
"The beneficiary (of the gift) is my friend.", LojbanSentence
"The beneficiaries (of the gift) are my friends."])
        , ([LojbanSentence
"lo ctuca ku pendo mi"], [LojbanSentence
"The instructor is my friend.", LojbanSentence
"The instructors are my friends."])
        ]
    pelxu :: TranslationGenerator
pelxu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo zdani ku pelxu"], [LojbanSentence
"The house is yellow.", LojbanSentence
"The houses are yellow."])
        , ([LojbanSentence
"lo mlatu ku pelxu"], [LojbanSentence
"The cat is yellow.", LojbanSentence
"The cats are yellow."])
        , ([LojbanSentence
"lo gerku ku pelxu"], [LojbanSentence
"The dog is yellow.", LojbanSentence
"The dogs are yellow."])
        , ([LojbanSentence
"lo se dunda ku pelxu"], [LojbanSentence
"The gift is yellow."])
        ]
    others :: TranslationGenerator
others = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi nelci lo xe ctuca ku"], [LojbanSentence
"I like the teaching method."])
        , ([LojbanSentence
"do nelci lo xe ctuca ku"], [LojbanSentence
"You like the teaching method."])
        ]

-- | Regular translations for the third lesson.
--
translations3_normal :: TranslationGenerator
translations3_normal :: TranslationGenerator
translations3_normal = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
talkingToAnimal, TranslationGenerator
likingAnimals, TranslationGenerator
animalFriends, TranslationGenerator
beautiful, TranslationGenerator
person, TranslationGenerator
others] where
        talkingToAnimal :: TranslationGenerator
talkingToAnimal = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo prenu ku tavla lo mlatu ku"], [LojbanSentence
"A person is talking to a cat.", LojbanSentence
"The person talks to cats."])
            , ([LojbanSentence
"lo prenu ku tavla lo gerku ku"], [LojbanSentence
"A person is talking to a dog.", LojbanSentence
"The person talks to dogs."])
            ]
        likingAnimals :: TranslationGenerator
likingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi nelci lo mlatu ku"], [LojbanSentence
"I like the cat.", LojbanSentence
"I like cats.", LojbanSentence
"We like cats."])
            , ([LojbanSentence
"mi nelci lo gerku ku"], [LojbanSentence
"I like the dog.", LojbanSentence
"I like dogs.", LojbanSentence
"We like dogs."])
            , ([LojbanSentence
"lo gerku ku nelci lo mlatu ku"], [LojbanSentence
"The dog likes the cat.", LojbanSentence
"Dogs like cats."])
            , ([LojbanSentence
"lo mlatu ku nelci lo gerku ku"], [LojbanSentence
"The cat likes the dog.", LojbanSentence
"Cats like dogs."])
            ]
        animalFriends :: TranslationGenerator
animalFriends = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo mlatu ku pendo mi"], [LojbanSentence
"The cat is my friend."])
            , ([LojbanSentence
"lo gerku ku pendo mi"], [LojbanSentence
"The dog is my friend."])
            ]
        beautiful :: TranslationGenerator
beautiful = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo zdani ku melbi"], [LojbanSentence
"The house is beautiful.", LojbanSentence
"The houses are beautiful."])
            , ([LojbanSentence
"lo mlatu ku melbi"], [LojbanSentence
"The cat is beautiful.", LojbanSentence
"The cats are beautiful.", LojbanSentence
"Cats are beautiful."])
            , ([LojbanSentence
"lo gerku ku melbi"], [LojbanSentence
"The dog is beautiful.", LojbanSentence
"The dogs are beautiful.", LojbanSentence
"Dogs are beautiful."])
            , ([LojbanSentence
"lo zdani ku melbi mi"], [LojbanSentence
"The house is beautiful to me.", LojbanSentence
"The houses are beautiful to me."])
            , ([LojbanSentence
"lo mlatu ku melbi mi"], [LojbanSentence
"The cat is beautiful to me.", LojbanSentence
"The cats are beautiful to me.", LojbanSentence
"Cats are beautiful to me."])
            , ([LojbanSentence
"lo gerku ku melbi mi"], [LojbanSentence
"The dog is beautiful to me.", LojbanSentence
"The dogs are beautiful to me.", LojbanSentence
"Dogs are beautiful to me."])
            , ([LojbanSentence
"lo ctuca ku melbi"], [LojbanSentence
"The instructor is beautiful."])
            , ([LojbanSentence
"lo ctuca ku melbi mi"], [LojbanSentence
"The instructor is beautiful to me."])
            ]
        person :: TranslationGenerator
person = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo tavla ku prenu"], [LojbanSentence
"The speaker is a person."])
            , ([LojbanSentence
"lo se tavla ku prenu"], [LojbanSentence
"The listener is a person."])
            , ([LojbanSentence
"lo dunda ku prenu"], [LojbanSentence
"The donor is a person."])
            , ([LojbanSentence
"lo te dunda ku prenu"], [LojbanSentence
"The beneficiary (of the gift) is a person."])
            , ([LojbanSentence
"lo ctuca ku prenu"], [LojbanSentence
"The instructor is a person."])
            ]
        others :: TranslationGenerator
others = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi se zdani"], [LojbanSentence
"I have a house.", LojbanSentence
"We have a house.", LojbanSentence
"We have houses."])
            , ([LojbanSentence
"do se zdani"], [LojbanSentence
"You have a house.", LojbanSentence
"You have houses."])
            , ([LojbanSentence
"mi nelci lo prenu ku"], [LojbanSentence
"I like people.", LojbanSentence
"We like people."])
            , ([LojbanSentence
"lo prenu ku nelci mi"], [LojbanSentence
"People like me.", LojbanSentence
"People like us."])
            , ([LojbanSentence
"do melbi mi"], [LojbanSentence
"You are beautiful to me."])
            , ([LojbanSentence
"do melbi"], [LojbanSentence
"You are beautiful."])
            , ([LojbanSentence
"mi nelci lo dunda ku"], [LojbanSentence
"I like the donor.", LojbanSentence
"I like the donors."])
            , ([LojbanSentence
"mi nelci lo ctuca ku"], [LojbanSentence
"I like the instructor.", LojbanSentence
"I like the instructors."])
            , ([LojbanSentence
"lo ctuca ku nelci mi"], [LojbanSentence
"The instructor likes me", LojbanSentence
"The instructors like me."])
            ]

-- * Lesson 4: Tanru
translations4_expressions :: TranslationGenerator
translations4_expressions :: TranslationGenerator
translations4_expressions = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
sutra, TranslationGenerator
lojbo, TranslationGenerator
melbi, TranslationGenerator
others] where
    sutra :: TranslationGenerator
sutra = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo sutra prenu ku"], [LojbanSentence
"The fast person."])
        , ([LojbanSentence
"lo sutra tavla ku"], [LojbanSentence
"The fast speaker."])
        , ([LojbanSentence
"lo sutra ctuca ku"], [LojbanSentence
"The fast teacher."])
        , ([LojbanSentence
"lo sutra gerku ku"], [LojbanSentence
"The fast dog."])
        , ([LojbanSentence
"lo sutra mlatu ku"], [LojbanSentence
"The fast cat."])
        ]
    lojbo :: TranslationGenerator
lojbo = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo lojbo prenu ku"], [LojbanSentence
"The Lojbanic person."])
        , ([LojbanSentence
"lo lojbo dunda ku"], [LojbanSentence
"The Lojbanic donor."])
        , ([LojbanSentence
"lo lojbo tavla ku"], [LojbanSentence
"The Lojbanic speaker."])
        , ([LojbanSentence
"lo lojbo ctuca ku"], [LojbanSentence
"The Lojbanic teacher."])
        , ([LojbanSentence
"lo lojbo gerku ku"], [LojbanSentence
"The Lojbanic dog."])
        , ([LojbanSentence
"lo lojbo mlatu ku"], [LojbanSentence
"The Lojbanic cat."])
        ]
    melbi :: TranslationGenerator
melbi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo melbi prenu ku"], [LojbanSentence
"The beautiful person."])
        , ([LojbanSentence
"lo melbi dunda ku"], [LojbanSentence
"The beautiful donor."])
        --, (["lo melbi te dunda ku"], ["The beautiful recipient."])
        , ([LojbanSentence
"lo melbi tavla ku"], [LojbanSentence
"The beautiful speaker."])
        , ([LojbanSentence
"lo melbi ctuca ku"], [LojbanSentence
"The beautiful teacher."])
        , ([LojbanSentence
"lo melbi gerku ku"], [LojbanSentence
"The beautiful dog."])
        , ([LojbanSentence
"lo melbi mlatu ku"], [LojbanSentence
"The beautiful cat."])
        ]
    others :: TranslationGenerator
others = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo gerku zdani ku"], [LojbanSentence
"The dog house."])
        , ([LojbanSentence
"lo tavla gerku ku"], [LojbanSentence
"The talking dog."])
        , ([LojbanSentence
"lo tavla mlatu ku"], [LojbanSentence
"The talking cat."])
        ]

translations4_sentences :: TranslationGenerator
translations4_sentences :: TranslationGenerator
translations4_sentences = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
adverb, TranslationGenerator
adjective] where
    adverb :: TranslationGenerator
adverb = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
sutra] where
        sutra :: TranslationGenerator
sutra = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- sutra tavla
            [ ([LojbanSentence
"mi sutra tavla"], [LojbanSentence
"I talk quickly."])
            , ([LojbanSentence
"do sutra tavla"], [LojbanSentence
"You talk quickly."])
            , ([LojbanSentence
"lo prenu ku sutra tavla"], [LojbanSentence
"The person talks quickly.", LojbanSentence
"People talk quickly."])
            , ([LojbanSentence
"lo ctuca ku sutra tavla"], [LojbanSentence
"The teacher talks quickly."])
            , ([LojbanSentence
"lo dunda ku sutra tavla"], [LojbanSentence
"The donor talks quickly."])
            , ([LojbanSentence
"mi sutra tavla lo prenu ku"], [LojbanSentence
"I talked to the person quickly."])
            , ([LojbanSentence
"mi sutra tavla lo ctuca ku"], [LojbanSentence
"I talked to the teacher quickly."])
            , ([LojbanSentence
"mi sutra tavla lo dunda ku"], [LojbanSentence
"I talked to the donor quickly."])
            -- sutra ctuca (mi)
            , ([LojbanSentence
"mi sutra ctuca"], [LojbanSentence
"I teach quickly."])
            , ([LojbanSentence
"mi sutra ctuca do"], [LojbanSentence
"I taught you quickly."])
            , ([LojbanSentence
"mi sutra ctuca lo prenu ku"], [LojbanSentence
"I taught the person quickly."])
            , ([LojbanSentence
"mi sutra ctuca lo gerku ku"], [LojbanSentence
"I taught the dog quickly."])
            -- sutra ctuca (do)
            , ([LojbanSentence
"do sutra ctuca"], [LojbanSentence
"You teach quickly."])
            , ([LojbanSentence
"do sutra ctuca mi"], [LojbanSentence
"You taught me quickly."])
            , ([LojbanSentence
"do sutra ctuca lo prenu ku"], [LojbanSentence
"You taught the person quickly."])
            , ([LojbanSentence
"do sutra ctuca lo gerku ku"], [LojbanSentence
"You taught the dog quickly."])
            ]
    adjective :: TranslationGenerator
adjective = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
lojbo, TranslationGenerator
melbi] where
        lojbo :: TranslationGenerator
lojbo = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- tavla (mi)
            [ ([LojbanSentence
"mi tavla lo lojbo prenu ku", LojbanSentence
"mi tavla lo prenu ku poi lojbo"], [LojbanSentence
"I talked to the Lojbanic person."])
            , ([LojbanSentence
"mi tavla lo lojbo dunda ku", LojbanSentence
"mi tavla lo dunda ku poi lojbo"], [LojbanSentence
"I talked to the Lojbanic donor."])
            , ([LojbanSentence
"mi tavla lo lojbo ctuca ku", LojbanSentence
"mi tavla lo ctuca ku poi lojbo"], [LojbanSentence
"I talked to the Lojbanic teacher."])
            -- nelci (mi)
            , ([LojbanSentence
"mi nelci lo lojbo prenu ku", LojbanSentence
"mi nelci lo prenu ku poi lojbo"], [LojbanSentence
"I like Lojbanic people."])
            , ([LojbanSentence
"mi nelci lo lojbo dunda ku", LojbanSentence
"mi nelci lo dunda ku poi lojbo"], [LojbanSentence
"I like Lojbanic donors."])
            , ([LojbanSentence
"mi nelci lo lojbo ctuca ku", LojbanSentence
"mi nelci lo ctuca ku poi lojbo"], [LojbanSentence
"I like Lojbanic teachers."])
            , ([LojbanSentence
"mi nelci lo lojbo gerku ku", LojbanSentence
"mi nelci lo gerku ku poi lojbo"], [LojbanSentence
"I like Lojbanic dogs."])
            , ([LojbanSentence
"mi nelci lo lojbo mlatu ku", LojbanSentence
"mi nelci lo mlatu ku poi lojbo"], [LojbanSentence
"I like Lojbanic cats."])
            ]
        melbi :: TranslationGenerator
melbi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- tavla (mi)
            [ ([LojbanSentence
"mi tavla lo melbi prenu ku", LojbanSentence
"mi tavla lo prenu ku poi melbi"], [LojbanSentence
"I talked to the beautiful person."])
            , ([LojbanSentence
"mi tavla lo melbi dunda ku", LojbanSentence
"mi tavla lo dunda ku poi melbi"], [LojbanSentence
"I talked to the beautiful donor."])
            , ([LojbanSentence
"mi tavla lo melbi ctuca ku", LojbanSentence
"mi tavla lo ctuca ku poi melbi"], [LojbanSentence
"I talked to the beautiful teacher."])
            ]

-- * Lesson 5: Questions 1
--
-- | Overall translations for the fourth lesson (always involving "xu", "ma" or "mo").
translations5 :: TranslationGenerator
translations5 :: TranslationGenerator
translations5 = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
4, TranslationGenerator
translations5_xu), (Int
4, TranslationGenerator
translations5_ma), (Int
1, TranslationGenerator
translations5_mo)]

-- | Translations for the fourth lesson involving "xu", with the restriction that some intermediate place is missing.
--
-- Defined separately so that they may be used in 'Translate without using "zo'e"' exercises.
translations5_restricted_xu :: TranslationGenerator
translations5_restricted_xu :: TranslationGenerator
translations5_restricted_xu = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
talkingAbout), (Int
1, TranslationGenerator
gaveSomething), (Int
4, TranslationGenerator
writing), (Int
2, TranslationGenerator
know)] where
    talkingAbout :: TranslationGenerator
talkingAbout = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do tavla fi do", LojbanSentence
"xu do tavla fi vo'a"], [LojbanSentence
"Are you talking about yourself?", LojbanSentence
"Were you talking about yourself?"])
        , ([LojbanSentence
"xu do tavla fi mi"], [LojbanSentence
"Are you talking about me?", LojbanSentence
"Were you talking about me?"])
        , ([LojbanSentence
"xu (|lo prenu ku) tavla fi mi"], [LojbanSentence
"Was somebody talking about me?"])
        , ([LojbanSentence
"xu do tavla fi lo se dunda ku"], [LojbanSentence
"Are you talking about the gift?", LojbanSentence
"Did you talk about the gift?"])
        , ([LojbanSentence
"xu do tavla fi lo mlatu ku"], [LojbanSentence
"Were you talking about the cat?", LojbanSentence
"Were you talking about the cats?", LojbanSentence
"Were you talking about cats?"])
        , ([LojbanSentence
"xu do tavla fi lo gerku ku"], [LojbanSentence
"Were you talking about the dog?", LojbanSentence
"Were you talking about the dogs?", LojbanSentence
"Were you talking about dogs?"])
        , ([LojbanSentence
"xu (|lo prenu ku) tavla fi lo se dunda ku"], [LojbanSentence
"Did somebody talk about the gift?"])
        , ([LojbanSentence
"xu (|lo prenu ku) tavla do lo mlatu ku"], [LojbanSentence
"Did somebody talk to you about the cat?", LojbanSentence
"Did somebody talk to you about the cats?"])
        , ([LojbanSentence
"xu (|lo prenu ku) tavla do lo gerku ku"], [LojbanSentence
"Did somebody talk to you about the dog?", LojbanSentence
"Did somebody talk to you about the dogs?"])
        ]
    gaveSomething :: TranslationGenerator
gaveSomething = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do dunda fi mi"], [LojbanSentence
"Did you give me something?", LojbanSentence
"Are you going to give me something?"])
        , ([LojbanSentence
"xu mi dunda fi do"], [LojbanSentence
"Did I give you something?"])
        ]
    writing :: TranslationGenerator
writing = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do ciska fi ti"], [LojbanSentence
"Did you write here?"])
        , ([LojbanSentence
"xu do ciska fi ta"], [LojbanSentence
"Did you write there?"])
        , ([LojbanSentence
"xu (|lo prenu ku) ciska fi ti"], [LojbanSentence
"Did somebody write here?"])
        , ([LojbanSentence
"xu (|lo prenu ku) ciska fi ta"], [LojbanSentence
"Did somebody write there?"])
        , ([LojbanSentence
"xu do ciska fo ti"], [LojbanSentence
"Do you write using this?", LojbanSentence
"Did you write something using this?"])
        , ([LojbanSentence
"xu do ciska fo ta"], [LojbanSentence
"Do you write using that?", LojbanSentence
"Did you write something using that?"])
        ]
    know :: TranslationGenerator
know = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do djuno fi lo mlatu ku"], [LojbanSentence
"Do you know about cats?"])
        , ([LojbanSentence
"xu do djuno fi lo gerku ku"], [LojbanSentence
"Do you know about dogs?"])
        ]

-- | Overall translations for the fourth lesson involving "xu".
translations5_xu :: TranslationGenerator
translations5_xu :: TranslationGenerator
translations5_xu = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators ([(Int, TranslationGenerator)] -> TranslationGenerator)
-> [(Int, TranslationGenerator)] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int
3, TranslationGenerator
translations5_restricted_xu), (Int
3, TranslationGenerator
writing), (Int
2, TranslationGenerator
know)] [(Int, TranslationGenerator)]
-> [(Int, TranslationGenerator)] -> [(Int, TranslationGenerator)]
forall a. [a] -> [a] -> [a]
++ ((Int
1,) (TranslationGenerator -> (Int, TranslationGenerator))
-> [TranslationGenerator] -> [(Int, TranslationGenerator)]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [TranslationGenerator
hasHouse, TranslationGenerator
nice, TranslationGenerator
talking, TranslationGenerator
teaching, TranslationGenerator
friends, TranslationGenerator
others]) where
    hasHouse :: TranslationGenerator
hasHouse = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do se zdani"], [LojbanSentence
"Do you have a house?"])
        , ([LojbanSentence
"xu lo prenu ku se zdani"], [LojbanSentence
"Does the person have a house?"])
        , ([LojbanSentence
"xu lo ctuca ku se zdani"], [LojbanSentence
"Does the instructor have a house?"])
        ]
    nice :: TranslationGenerator
nice = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
beautiful, TranslationGenerator
like] where
        beautiful :: TranslationGenerator
beautiful = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"xu lo se dunda ku melbi do"], [LojbanSentence
"Is the gift beautiful to you?", LojbanSentence
"Are the gifts beautiful to you?"])
            , ([LojbanSentence
"xu lo se dunda ku melbi"], [LojbanSentence
"Is the gift beautiful?", LojbanSentence
"Are the gifts beautiful?"])
            , ([LojbanSentence
"xu lo ctuca ku melbi do"], [LojbanSentence
"Is the instructor beautiful to you?"])
            , ([LojbanSentence
"xu lo ctuca ku melbi"], [LojbanSentence
"Is the instructor beautiful?"])
            , ([LojbanSentence
"xu lo zdani ku melbi do"], [LojbanSentence
"Is the house beautiful to you?"])
            , ([LojbanSentence
"xu lo zdani ku melbi"], [LojbanSentence
"Is the house beautiful?"])
            , ([LojbanSentence
"xu lo mlatu ku melbi do"], [LojbanSentence
"Is the cat beautiful to you?"])
            , ([LojbanSentence
"xu lo mlatu ku melbi"], [LojbanSentence
"Is the cat beautiful?"])
            , ([LojbanSentence
"xu lo gerku ku melbi do"], [LojbanSentence
"Is the dog beautiful to you?"])
            , ([LojbanSentence
"xu lo gerku ku melbi"], [LojbanSentence
"Is the dog beautiful?"])
            ]
        like :: TranslationGenerator
like = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"xu do nelci lo se dunda ku"], [LojbanSentence
"Did you like the gift?"])
            , ([LojbanSentence
"xu lo te dunda ku nelci lo se dunda ku"], [LojbanSentence
"Did the recipient like the gift?"])
            , ([LojbanSentence
"xu lo ctuca ku nelci lo se dunda ku"], [LojbanSentence
"Did the instructor like the gift?"])
            , ([LojbanSentence
"xu do nelci lo ctuca ku"], [LojbanSentence
"Did you like the instructor?"])
            ]
    talking :: TranslationGenerator
talking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do tavla mi"], [LojbanSentence
"Are you talking to me?"])
        , ([LojbanSentence
"xu do tavla lo mlatu ku"], [LojbanSentence
"Are you talking to the cat?"])
        , ([LojbanSentence
"xu do tavla lo gerku ku"], [LojbanSentence
"Are you talking to the dog?"])
        ]
    teaching :: TranslationGenerator
teaching = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do ctuca lo mlatu ku"], [LojbanSentence
"Are you teaching the cat?", LojbanSentence
"Did you teach the cat?"])
        , ([LojbanSentence
"xu do ctuca lo gerku ku"], [LojbanSentence
"Are you teaching the dog?", LojbanSentence
"Did you teach the dog?"])
        , ([LojbanSentence
"xu do ctuca mi"], [LojbanSentence
"Are you going to teach me?"])
        , ([LojbanSentence
"xu do ctuca do", LojbanSentence
"xu do ctuca vo'a"], [LojbanSentence
"Did you teach yourself?"])
        , ([LojbanSentence
"xu (|lo prenu ku) ctuca do"], [LojbanSentence
"Did somebody teach you?"])
        ]
    friends :: TranslationGenerator
friends = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do pendo mi"], [LojbanSentence
"Are you my friend?"])
        , ([LojbanSentence
"xu lo ctuca ku pendo do"], [LojbanSentence
"Is the instructor your friend?"])
        , ([LojbanSentence
"xu lo dunda ku pendo do"], [LojbanSentence
"Is the donor your friend?"])
        , ([LojbanSentence
"xu lo te dunda ku pendo do"], [LojbanSentence
"Is the beneficiary (of the gift) your friend?"])
        ]
    writing :: TranslationGenerator
writing = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do ciska"], [LojbanSentence
"Do you write?"])
        , ([LojbanSentence
"xu lo prenu ku ciska"], [LojbanSentence
"Do people write?"])
        , ([LojbanSentence
"xu do ciska ti"], [LojbanSentence
"Did you write this?"])
        , ([LojbanSentence
"xu do ciska ta"], [LojbanSentence
"Did you write that?"])
        ]
    know :: TranslationGenerator
know = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do djuno"], [LojbanSentence
"Did you know?"])
        --, (["xu do djuno lo se ciska ku"], ["Did you know that what was written is true?"]) -- bad sentence
        --, (["xu do djuno lo te ctuca ku"], ["Did you know that what was taught is true?"]) -- bad sentence
        ]
    others :: TranslationGenerator
others = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do nelci lo xe ctuca ku"], [LojbanSentence
"Do you like the teaching method?"])
        ]

-- | Translations for the fourth lesson involving "ma", with the restriction that some intermediate place is missing.
--
-- Defined separately so that they may be used in 'Translate without using "zo'e"' exercises.
translations5_restricted_ma :: TranslationGenerator
translations5_restricted_ma :: TranslationGenerator
translations5_restricted_ma = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
talkingAbout), (Int
1, TranslationGenerator
gaveSomething), (Int
4, TranslationGenerator
writing), (Int
2, TranslationGenerator
know)] where
    talkingAbout :: TranslationGenerator
talkingAbout = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ma tavla fi mi"], [LojbanSentence
"Who is talking about me?", LojbanSentence
"Who is talking about us?", LojbanSentence
"Who was talking about me?", LojbanSentence
"Who was talking about us?"])
        , ([LojbanSentence
"ma tavla fi do"], [LojbanSentence
"Who is talking about you?", LojbanSentence
"Who was talking about you?"])
        , ([LojbanSentence
"ma tavla fi lo mlatu ku"], [LojbanSentence
"Who is talking about the cat?"])
        , ([LojbanSentence
"ma tavla fi lo gerku ku"], [LojbanSentence
"Who is talking about the dog?"])
        , ([LojbanSentence
"do tavla fi ma"], [LojbanSentence
"What are you talking about?", LojbanSentence
"What were you talking about?"])
        , ([LojbanSentence
"lo prenu ku tavla fi ma"], [LojbanSentence
"What is the person talking about?", LojbanSentence
"What was the person talking about?"])
        , ([LojbanSentence
"lo dunda ku tavla fi ma"], [LojbanSentence
"What is the donor talking about?", LojbanSentence
"What was the donor talking about?"])
        , ([LojbanSentence
"lo te dunda ku tavla fi ma"], [LojbanSentence
"What is the beneficiary (of the gift) talking about?", LojbanSentence
"What was the beneficiary (of the gift) talking about?"])
        , ([LojbanSentence
"lo ciska ku tavla fi ma"], [LojbanSentence
"What is the writer talking about?", LojbanSentence
"What was the writer talking about?"])
        ]
    gaveSomething :: TranslationGenerator
gaveSomething = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ma dunda fi mi"], [LojbanSentence
"Who donated to me?"])
        , ([LojbanSentence
"ma dunda fi do"], [LojbanSentence
"Who donated to you?"])
        , ([LojbanSentence
"do dunda fi ma"], [LojbanSentence
"To whom did you donate?"])
        , ([LojbanSentence
"lo prenu ku dunda fi ma"], [LojbanSentence
"To whom did the person donate?"])
        ]
    writing :: TranslationGenerator
writing = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- instrument
        [ ([LojbanSentence
"do ciska fo ma"], [LojbanSentence
"Which instrument do you use to write?"])
        , ([LojbanSentence
"do ciska fi ta ma"], [LojbanSentence
"Which instrument did you use to write there?"])
        -- medium
        , ([LojbanSentence
"do ciska fi ma"], [LojbanSentence
"On what medium will you write?", LojbanSentence
"On what medium did you write?"])
        , ([LojbanSentence
"do ciska fi ma ti"], [LojbanSentence
"On what medium will you write using this?"])
        , ([LojbanSentence
"ciska fi ma ti"], [LojbanSentence
"On what medium will this instrument be used to write?"])
        -- who
        , ([LojbanSentence
"ma ciska fi ta"], [LojbanSentence
"Who wrote there?"])
        , ([LojbanSentence
"ma ciska fo ti"], [LojbanSentence
"Who writes using this?"])
        , ([LojbanSentence
"ma ciska fo ta"], [LojbanSentence
"Who writes using that?"])
        ]
    know :: TranslationGenerator
know = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ma djuno fi lo mlatu ku"], [LojbanSentence
"Who knows about cats?"])
        , ([LojbanSentence
"ma djuno fi lo gerku ku"], [LojbanSentence
"Who knows about dogs?"])
        , ([LojbanSentence
"do djuno fi ma"], [LojbanSentence
"What subjects do you know?"])
        ]

-- | Overall translations for the fourth lesson involving "ma".
translations5_ma :: TranslationGenerator
translations5_ma :: TranslationGenerator
translations5_ma = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators ([(Int, TranslationGenerator)] -> TranslationGenerator)
-> [(Int, TranslationGenerator)] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int
3, TranslationGenerator
translations5_restricted_ma), (Int
3, TranslationGenerator
writing), (Int
2, TranslationGenerator
know)] [(Int, TranslationGenerator)]
-> [(Int, TranslationGenerator)] -> [(Int, TranslationGenerator)]
forall a. [a] -> [a] -> [a]
++ ((Int
1,) (TranslationGenerator -> (Int, TranslationGenerator))
-> [TranslationGenerator] -> [(Int, TranslationGenerator)]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [TranslationGenerator
hasHouse, TranslationGenerator
nice, TranslationGenerator
talking, TranslationGenerator
giving, TranslationGenerator
teaching]) where
    hasHouse :: TranslationGenerator
hasHouse = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ma se zdani"], [LojbanSentence
"Who has a house?"])
        , ([LojbanSentence
"ta zdani ma", LojbanSentence
"zdani ma"], [LojbanSentence
"Whose house is that?"])
        , ([LojbanSentence
"do nelci ma"], [LojbanSentence
"What do you like?"])
        ]
    nice :: TranslationGenerator
nice = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
what, TranslationGenerator
who] where
        what :: TranslationGenerator
what = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"ma melbi do"], [LojbanSentence
"What is beautiful to you?"])
            , ([LojbanSentence
"ma melbi"], [LojbanSentence
"What is beautiful?"])
            ]
        who :: TranslationGenerator
who = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"ti melbi ma"], [LojbanSentence
"Who finds this beautiful?"])
            , ([LojbanSentence
"ta melbi ma"], [LojbanSentence
"Who finds that beautiful?"])
            , ([LojbanSentence
"lo se dunda ku melbi ma"], [LojbanSentence
"The gift is beautiful to whom?", LojbanSentence
"The gifts are beautiful to whom?"])
            , ([LojbanSentence
"lo mlatu ku melbi ma"], [LojbanSentence
"The cat is beautiful to whom?", LojbanSentence
"The cats are beautiful to whom?"])
            , ([LojbanSentence
"lo gerku ku melbi ma"], [LojbanSentence
"The dog is beautiful to whom?", LojbanSentence
"The dogs are beautiful to whom?"])
            , ([LojbanSentence
"ma nelci lo se dunda ku"], [LojbanSentence
"Who liked the gift?", LojbanSentence
"Who likes the gift?"])
            , ([LojbanSentence
"ma nelci lo mlatu ku"], [LojbanSentence
"Who likes cats?", LojbanSentence
"Who likes the cat?"])
            , ([LojbanSentence
"ma nelci lo gerku ku"], [LojbanSentence
"Who likes dogs?", LojbanSentence
"Who likes the dog?"])
            ]
    talking :: TranslationGenerator
talking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi tavla ma"], [LojbanSentence
"Who am I talking to?"])
        , ([LojbanSentence
"do tavla ma"], [LojbanSentence
"Who are you talking to?"])
        , ([LojbanSentence
"ma tavla mi"], [LojbanSentence
"Who is talking to me?"])
        , ([LojbanSentence
"ma tavla do"], [LojbanSentence
"Who is talking to you?"])
        ]
    giving :: TranslationGenerator
giving = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
general), (Int
1, TranslationGenerator
mlatu), (Int
1, TranslationGenerator
gerku)] where
        general :: TranslationGenerator
general = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"do te dunda ma"], [LojbanSentence
"What were you given?", LojbanSentence
"What did you receive?"])
            , ([LojbanSentence
"do dunda ma mi"], [LojbanSentence
"What did you give me?", LojbanSentence
"What will you give me?"])
            , ([LojbanSentence
"do dunda ma"], [LojbanSentence
"What did you donate?"])
            , ([LojbanSentence
"lo ctuca ku dunda ma do"], [LojbanSentence
"What did the instructor give you?"])
            , ([LojbanSentence
"ma dunda ta do"], [LojbanSentence
"Who gave you that?"])
            , ([LojbanSentence
"ma dunda ti mi"], [LojbanSentence
"Who gave me this?"])
            , ([LojbanSentence
"ma dunda ti"], [LojbanSentence
"Who donated this?"])
            , ([LojbanSentence
"ma dunda ta"], [LojbanSentence
"Who donated that?"])
            , ([LojbanSentence
"ma dunda lo zdani ku"], [LojbanSentence
"Who donated the house?"])
            ]
        mlatu :: TranslationGenerator
mlatu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"ma te dunda lo mlatu ku"], [LojbanSentence
"Who was given a cat?"])
            , ([LojbanSentence
"do dunda lo mlatu ku ma"], [LojbanSentence
"To whom did you give the cat?", LojbanSentence
"To whom did you give the cats?"])
            , ([LojbanSentence
"ma dunda lo mlatu ku lo ctuca ku"], [LojbanSentence
"Who gave the cat to the instructor?"])
            , ([LojbanSentence
"ma dunda lo mlatu ku mi"], [LojbanSentence
"Who gave me a cat?"])
            , ([LojbanSentence
"ma dunda lo mlatu ku do"], [LojbanSentence
"Who gave you a cat?"])
            , ([LojbanSentence
"ma dunda lo mlatu ku"], [LojbanSentence
"Who donated the cat?"])
            ]
        gerku :: TranslationGenerator
gerku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"ma te dunda lo gerku ku"], [LojbanSentence
"Who was given a dog?"])
            , ([LojbanSentence
"do dunda lo gerku ku ma"], [LojbanSentence
"To whom did you give the dog?", LojbanSentence
"To whom did you give the dogs?"])
            , ([LojbanSentence
"ma dunda lo gerku ku lo ctuca ku"], [LojbanSentence
"Who gave the dog to the instructor?"])
            , ([LojbanSentence
"ma dunda lo gerku ku mi"], [LojbanSentence
"Who gave me a dog?"])
            , ([LojbanSentence
"ma dunda lo gerku ku do"], [LojbanSentence
"Who gave you a dog?"])
            , ([LojbanSentence
"ma dunda lo gerku ku"], [LojbanSentence
"Who donated the dog?"])
            ]
    teaching :: TranslationGenerator
teaching = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ctuca ma"], [LojbanSentence
"Who are we going to teach?"])
        , ([LojbanSentence
"do ctuca ma"], [LojbanSentence
"Who are you teaching?", LojbanSentence
"Who are you going to teach?"])
        , ([LojbanSentence
"ma ctuca do"], [LojbanSentence
"Who is teaching you?", LojbanSentence
"Who taught you?"])
        , ([LojbanSentence
"ma ctuca lo mlatu ku"], [LojbanSentence
"Who taught the cat?"])
        , ([LojbanSentence
"ma ctuca lo gerku ku"], [LojbanSentence
"Who taught the dog?"])
        ]
    writing :: TranslationGenerator
writing = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- instrument
        [ ([LojbanSentence
"ciska ti fo ma"], [LojbanSentence
"Which instrument was used to write this?"])
        , ([LojbanSentence
"do ciska ta fo ma"], [LojbanSentence
"Which instrument did you use to write that?"])
        -- what
        , ([LojbanSentence
"do ciska ma"], [LojbanSentence
"What did you write?", LojbanSentence
"What are you going to write?"])
        , ([LojbanSentence
"do ciska ma ta"], [LojbanSentence
"What did you write there?", LojbanSentence
"What are you going to write there?"])
        , ([LojbanSentence
"do ciska ma fo ta"], [LojbanSentence
"What did you write using that?"])
        , ([LojbanSentence
"ciska ma ta"], [LojbanSentence
"What is written there?"])
        , ([LojbanSentence
"ciska ma fo ti"], [LojbanSentence
"What was written using this?"])
        -- who
        , ([LojbanSentence
"ma ciska"], [LojbanSentence
"Who is writing?"])
        , ([LojbanSentence
"ma ciska ti"], [LojbanSentence
"Who wrote this?"])
        ]
    know :: TranslationGenerator
know = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ma djuno fi lo mlatu ku"], [LojbanSentence
"Who knows about cats?"])
        , ([LojbanSentence
"ma djuno fi lo gerku ku"], [LojbanSentence
"Who knows about dogs?"])
        , ([LojbanSentence
"do djuno fi ma"], [LojbanSentence
"What subjects do you know?"])
        ]

-- | Translations for the fourth lesson involving "mo".
translations5_mo :: TranslationGenerator
translations5_mo :: TranslationGenerator
translations5_mo = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
    [ ([LojbanSentence
"mi mo"], [LojbanSentence
"What am I doing?"])
    , ([LojbanSentence
"do mo"], [LojbanSentence
"What are you doing?"])
    , ([LojbanSentence
"lo prenu ku mo"], [LojbanSentence
"What is the person doing?"])
    , ([LojbanSentence
"lo ctuca ku mo"], [LojbanSentence
"What is the instructor doing?"])
    , ([LojbanSentence
"lo ciska ku mo"], [LojbanSentence
"What is the writer doing?"])
    ]

-- | Translations for the fourth lesson involving "xu" or "ma", with the restriction that some intermediate place is missing.
--
-- Defined separately so that they may be used in 'Translate without using "zo'e"' exercises.
translations5_restricted :: TranslationGenerator
translations5_restricted :: TranslationGenerator
translations5_restricted = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
translations5_restricted_xu, TranslationGenerator
translations5_restricted_ma]

-- * Lesson 6: Abstractions 1
-- CHECK: Are events vs facts being used correctly?
translations6_nu :: TranslationGenerator
translations6_nu :: TranslationGenerator
translations6_nu = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
gleki), (Int
1, TranslationGenerator
tavla), (Int
2, TranslationGenerator
nupre)] where
    gleki :: TranslationGenerator
gleki = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
talking, TranslationGenerator
beautiful, TranslationGenerator
givingAnimals, TranslationGenerator
liking, TranslationGenerator
teaching, TranslationGenerator
owningHouse, TranslationGenerator
know, TranslationGenerator
other] where
        talking :: TranslationGenerator
talking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- talking to someone
            [ ([LojbanSentence
"mi gleki lo nu do tavla mi kei ku"], [LojbanSentence
"I am happy that you talked to me."])
            , ([LojbanSentence
"mi gleki lo nu mi tavla do kei ku", LojbanSentence
"mi gleki lo nu tavla do kei ku"], [LojbanSentence
"I am happy that I talked to you."])
            , ([LojbanSentence
"mi gleki lo nu do tavla lo ciska ku kei ku"], [LojbanSentence
"I am glad that you talked to the writer."])
            , ([LojbanSentence
"mi gleki lo nu lo ciska ku tavla do kei ku"], [LojbanSentence
"I am glad that the writer talked to you."])
            -- talking about animals
            , ([LojbanSentence
"mi gleki lo nu do tavla mi lo mlatu ku kei ku"], [LojbanSentence
"I am glad that you talked to me about the cat.", LojbanSentence
"I am happy that you talked to me about cats."])
            , ([LojbanSentence
"mi gleki lo nu do tavla mi lo gerku ku kei ku"], [LojbanSentence
"I am glad that you talked to me about the dog.", LojbanSentence
"I am happy that you talked to me about dogs."])
            ]
        beautiful :: TranslationGenerator
beautiful = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu do se melbi mi kei ku"], [LojbanSentence
"I am happy that you find me beautiful."])
            , ([LojbanSentence
"mi gleki lo nu do se melbi lo se dunda ku kei ku"], [LojbanSentence
"I am happy that you found the gift beautiful."])
            ]
        givingAnimals :: TranslationGenerator
givingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu do dunda lo mlatu ku mi kei ku"], [LojbanSentence
"I am happy that you gave me the cat.", LojbanSentence
"I am happy that you gave me the cats."])
            , ([LojbanSentence
"mi gleki lo nu do dunda lo gerku ku mi kei ku"], [LojbanSentence
"I am happy that you gave me the dog.", LojbanSentence
"I am happy that you gave me the dogs."])
            , ([LojbanSentence
"mi gleki lo nu mi te dunda lo mlatu ku kei ku"], [LojbanSentence
"I am happy that I was given a cat.", LojbanSentence
"I am happy that I was given the cat."])
            , ([LojbanSentence
"mi gleki lo nu mi te dunda lo gerku ku kei ku"], [LojbanSentence
"I am happy that I was given a dog.", LojbanSentence
"I am happy that I was given the dog."])
            ]
        liking :: TranslationGenerator
liking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu do nelci mi kei ku"], [LojbanSentence
"I am happy that you like me."])
            , ([LojbanSentence
"mi gleki lo nu lo prenu ku nelci mi kei ku"], [LojbanSentence
"I am happy that people like me."])
            , ([LojbanSentence
"mi gleki lo nu lo prenu ku nelci do kei ku"], [LojbanSentence
"I am happy that people like you.", LojbanSentence
"I am glad that people like you."])
            , ([LojbanSentence
"mi gleki lo nu lo ctuca ku nelci mi kei ku"], [LojbanSentence
"I am happy that the instructor likes me."])
            , ([LojbanSentence
"mi gleki lo nu lo ctuca ku nelci do kei ku"], [LojbanSentence
"I am happy that the instructor likes you.", LojbanSentence
"I am glad that the instructor likes you."])
            , ([LojbanSentence
"mi gleki lo nu do nelci lo ctuca ku kei ku"], [LojbanSentence
"I am glad that you like the instructor."])
            , ([LojbanSentence
"mi gleki lo nu do nelci lo ciska ku kei ku"], [LojbanSentence
"I am glad that you like the writer."])
            ]
        teaching :: TranslationGenerator
teaching = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu do ctuca mi kei ku"], [LojbanSentence
"I am happy that you taught me."])
            , ([LojbanSentence
"mi gleki lo nu mi ctuca do kei ku"], [LojbanSentence
"I am happy that I taught you."])
            ]
        owningHouse :: TranslationGenerator
owningHouse = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu mi se zdani kei ku"], [LojbanSentence
"I am happy that I have a house."])
            , ([LojbanSentence
"mi gleki lo nu do se zdani kei ku"], [LojbanSentence
"I am glad that you have a house."])
            ]
        know :: TranslationGenerator
know = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu mi djuno fi lo mlatu ku kei ku"], [LojbanSentence
"I am happy that I know about cats."])
            , ([LojbanSentence
"mi gleki lo nu mi djuno fi lo gerku ku kei ku"], [LojbanSentence
"I am happy that I know about dogs."])
            , ([LojbanSentence
"mi gleki lo nu do djuno fi lo mlatu ku kei ku"], [LojbanSentence
"I am happy that you know about cats."])
            , ([LojbanSentence
"mi gleki lo nu do djuno fi lo gerku ku kei ku"], [LojbanSentence
"I am happy that you know about dogs."])
            ]
        other :: TranslationGenerator
other = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu do gleki kei ku"], [LojbanSentence
"I am happy that you are happy."])
            , ([LojbanSentence
"mi gleki lo nu mi prenu kei ku"], [LojbanSentence
"I am happy that I am a person."])
            , ([LojbanSentence
"mi gleki lo nu do prenu kei ku"], [LojbanSentence
"I am happy that you are a person."])
            , ([LojbanSentence
"mi gleki lo nu do pendo mi kei ku"], [LojbanSentence
"I am happy that you are my friend."])
            , ([LojbanSentence
"mi gleki lo nu lo ctuca ku pendo mi kei ku"], [LojbanSentence
"I am happy that the instructor is my friend."])
            , ([LojbanSentence
"mi gleki lo nu lo ciska ku pendo mi kei ku"], [LojbanSentence
"I am happy that the writer is my friend."])
            , ([LojbanSentence
"mi gleki lo nu lo te dunda ku pendo mi kei ku"], [LojbanSentence
"I am happy that the beneficiary (of the gift) is my friend."])
            --, (["do gleki ma"], ["Why are you happy?", "What are you happy about?"])
            ]
    tavla :: TranslationGenerator
tavla = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
owningHouse] where
        owningHouse :: TranslationGenerator
owningHouse = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi tavla fi lo nu do se zdani kei ku"], [LojbanSentence
"I talked about you having a house.", LojbanSentence
"We talked about you having a house."])
            ]
            -- TODO: find out where the following sentences belong
        --promisorTalked = generatorFromList
            --[ (["lo nupre ku tavla mi"], ["The promisor talked to me.", "The promisor talked to us."])
            --, (["lo nupre ku tavla fi lo mlatu ku"], ["The promisor talked about the cat.", "The promisor talked about the cats."])
            --, (["lo nupre ku tavla fi lo gerku ku"], ["The promisor talked about the dog.", "The promisor talked about the dogs."])
            --, (["lo nupre ku tavla fi lo zdani ku"], ["The promisor talked about the house.", "The promisor talked about the houses."])
            --, (["lo nupre ku tavla mi lo mlatu ku"], ["The promisor talked to me about the cat.", "The promisor talked to me about the cats."])
            --, (["lo nupre ku tavla mi lo gerku ku"], ["The promisor talked to me about the dog.", "The promisor talked to me about the dogs."])
            --, (["lo nupre ku tavla mi lo zdani ku"], ["The promisor talked to me about the house.", "The promisor talked to me about the houses."])
            --]
        --promiseeTalked = generatorFromList
            --[ (["lo te nupre ku tavla mi"], ["The promisee talked to me.", "The promisee talked to us."])
            --, (["lo te nupre ku tavla fi lo mlatu ku"], ["The promisee talked about the cat.", "The promisee talked about the cats."])
            --, (["lo te nupre ku tavla fi lo gerku ku"], ["The promisee talked about the dog.", "The promisee talked about the dogs."])
            --, (["lo te nupre ku tavla fi lo zdani ku"], ["The promisee talked about the house.", "The promisee talked about the houses."])
            --, (["lo te nupre ku tavla mi lo mlatu ku"], ["The promisee talked to me about the cat.", "The promisee talked to me about the cats."])
            --, (["lo te nupre ku tavla mi lo gerku ku"], ["The promisee talked to me about the dog.", "The promisee talked to me about the dogs."])
            --, (["lo te nupre ku tavla mi lo zdani ku"], ["The promisee talked to me about the house.", "The promisee talked to me about the houses."])
            --]
    nupre :: TranslationGenerator
nupre = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
donatingAnimals, TranslationGenerator
donatingHouses, TranslationGenerator
teaching, TranslationGenerator
beingFriend] where
        donatingAnimals :: TranslationGenerator
donatingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"do nupre lo nu dunda lo mlatu ku kei ku", LojbanSentence
"do nupre lo nu do dunda lo mlatu ku kei ku"], [LojbanSentence
"You promised to donate the cat.", LojbanSentence
"You promised to donate the cats."])
            , ([LojbanSentence
"do nupre lo nu dunda lo gerku ku kei ku", LojbanSentence
"do nupre lo nu do dunda lo gerku ku kei ku"], [LojbanSentence
"You promised to donate the dog.", LojbanSentence
"You promised to donate the dogs."])
            , ([LojbanSentence
"do nupre lo nu (|do) dunda lo mlatu ku mi kei ku", LojbanSentence
"do nupre lo nu (|do) dunda lo mlatu ku kei ku mi"], [LojbanSentence
"You promised to donate the cat to me.", LojbanSentence
"You promised to donate the cats to me.", LojbanSentence
"You promised to donate the cats to us."])
            , ([LojbanSentence
"do nupre lo nu (|do) dunda lo gerku ku mi kei ku", LojbanSentence
"do nupre lo nu (|do) dunda lo gerku ku kei ku mi"], [LojbanSentence
"You promised to donate the dog to me.", LojbanSentence
"You promised to donate the dogs to me.", LojbanSentence
"You promised to donate the dogs to us."])
-- TODO: double-check the sentences below
            , ([LojbanSentence
"do nupre lo nu dunda lo mlatu ku kei ku mi", LojbanSentence
"do nupre lo nu do dunda lo mlatu ku kei ku mi"], [LojbanSentence
"You promised me to donate the cat.", LojbanSentence
"You promised me to donate the cats.", LojbanSentence
"You promised us to donate the cat.", LojbanSentence
"You promised us to donate the cats."])
            , ([LojbanSentence
"do nupre lo nu dunda lo gerku ku kei ku mi", LojbanSentence
"do nupre lo nu do dunda lo gerku ku kei ku mi"], [LojbanSentence
"You promised me to donate the dog.", LojbanSentence
"You promised me to donate the dogs.", LojbanSentence
"You promised us to donate the dog.", LojbanSentence
"You promised us to donate the dogs."])
            ]
        donatingHouses :: TranslationGenerator
donatingHouses = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"do nupre lo nu dunda lo zdani ku kei ku mi", LojbanSentence
"do nupre lo nu do dunda lo zdani ku kei ku mi"], [LojbanSentence
"You promised me to donate the house.", LojbanSentence
"You promised me to donate the houses.", LojbanSentence
"You promised us to donate the house.", LojbanSentence
"You promised us to donate the houses."])
            , ([LojbanSentence
"do nupre lo nu dunda lo zdani ku mi kei ku", LojbanSentence
"do nupre lo nu do dunda lo zdani ku mi kei ku"], [LojbanSentence
"You promised to donate the house to me.", LojbanSentence
"You promised to donate the houses to us."])
            ]
        teaching :: TranslationGenerator
teaching = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"do nupre lo nu ctuca mi kei ku", LojbanSentence
"do nupre lo nu do ctuca mi kei ku"], [LojbanSentence
"You promised to teach me.", LojbanSentence
"You promised to teach us."])
            , ([LojbanSentence
"mi nupre lo nu ctuca do kei ku", LojbanSentence
"mi nupre lo nu mi ctuca do kei ku"], [LojbanSentence
"I promised to teach you."])
            ]
        beingFriend :: TranslationGenerator
beingFriend = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"do nupre lo nu pendo kei ku", LojbanSentence
"do nupre lo nu do pendo kei ku"], [LojbanSentence
"You promised to be a friend."])
            , ([LojbanSentence
"lo ciska ku nupre lo nu pendo kei ku"], [LojbanSentence
"The writer promised to be a friend."])
            ]

translations6_du'u :: TranslationGenerator
translations6_du'u :: TranslationGenerator
translations6_du'u = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
djuno)] where
    djuno :: TranslationGenerator
djuno = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
teaching, TranslationGenerator
friend, TranslationGenerator
beautiful, TranslationGenerator
donating, TranslationGenerator
promising, TranslationGenerator
liking, TranslationGenerator
talking, TranslationGenerator
writing] where
        teaching :: TranslationGenerator
teaching = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do ctuca mi kei ku"], [LojbanSentence
"I know that you taught me."])
            ]
        friend :: TranslationGenerator
friend = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do pendo mi kei ku"], [LojbanSentence
"I know that you are my friend."])
            , ([LojbanSentence
"mi djuno lo du'u lo ciska ku pendo do kei ku"], [LojbanSentence
"I know the writer is your friend."])
            ]
        beautiful :: TranslationGenerator
beautiful = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u mi melbi kei ku"], [LojbanSentence
"I know that I am beautiful."])
            , ([LojbanSentence
"mi djuno lo du'u do melbi kei ku"], [LojbanSentence
"I know that you are beautiful."])
            , ([LojbanSentence
"mi djuno lo du'u lo ciska ku melbi kei ku"], [LojbanSentence
"I know that the writer is beautiful."])
            ]
        donating :: TranslationGenerator
donating = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do dunda kei ku"], [LojbanSentence
"I know that you made a donation.", LojbanSentence
"I know that you made donations."])
            , ([LojbanSentence
"mi djuno lo du'u lo prenu ku dunda kei ku"], [LojbanSentence
"I know that people make donations."])
            , ([LojbanSentence
"mi djuno lo du'u do dunda lo zdani ku kei ku"], [LojbanSentence
"I know that you donated the house."])
            , ([LojbanSentence
"mi djuno lo du'u do dunda lo mlatu ku kei ku"], [LojbanSentence
"I know that you donated the cat."])
            , ([LojbanSentence
"mi djuno lo du'u do dunda lo gerku ku kei ku"], [LojbanSentence
"I know that you donated the dog."])
            , ([LojbanSentence
"mi djuno lo du'u lo ciska ku dunda kei ku"], [LojbanSentence
"I know that the writer made a donation.", LojbanSentence
"I know that the writer makes donations."])
            ]
        promising :: TranslationGenerator
promising = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do nupre kei ku"], [LojbanSentence
"I know that you made a promise."])
            , ([LojbanSentence
"mi djuno lo du'u lo prenu ku nupre kei ku"], [LojbanSentence
"I know that people make promises."])
            , ([LojbanSentence
"mi djuno lo du'u do nupre fi mi kei ku"], [LojbanSentence
"I know that you promised me."])
            , ([LojbanSentence
"mi djuno lo du'u lo ctuca ku nupre fi do kei ku"], [LojbanSentence
"I know that the instructor promised you."])
            , ([LojbanSentence
"mi djuno lo du'u lo ciska ku nupre fi do kei ku"], [LojbanSentence
"I know that the writer promised you."])
            ]
        liking :: TranslationGenerator
liking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do nelci mi kei ku"], [LojbanSentence
"I know that you like me."])
            , ([LojbanSentence
"mi djuno lo du'u do nelci lo ciska ku kei ku"], [LojbanSentence
"I know that you like the writer."])
            , ([LojbanSentence
"mi djuno lo du'u do nelci lo mlatu ku kei ku"], [LojbanSentence
"I know that you like cats."])
            , ([LojbanSentence
"mi djuno lo du'u do nelci lo gerku ku kei ku"], [LojbanSentence
"I know that you like dogs."])
            , ([LojbanSentence
"mi djuno lo du'u lo prenu ku nelci lo mlatu ku kei ku"], [LojbanSentence
"I know that people like cats."])
            , ([LojbanSentence
"mi djuno lo du'u lo prenu ku nelci lo gerku ku kei ku"], [LojbanSentence
"I know that people like dogs."])
            , ([LojbanSentence
"mi djuno lo du'u lo mlatu ku nelci lo gerku ku kei ku"], [LojbanSentence
"I know that cats like dogs."])
            , ([LojbanSentence
"mi djuno lo du'u lo gerku ku nelci lo mlatu ku kei ku"], [LojbanSentence
"I know that dogs like cats."])
            , ([LojbanSentence
"mi djuno lo du'u lo mlatu ku nelci lo prenu ku kei ku"], [LojbanSentence
"I know that cats like people."])
            , ([LojbanSentence
"mi djuno lo du'u lo gerku ku nelci lo prenu ku kei ku"], [LojbanSentence
"I know that dogs like people."])
            ]
        talking :: TranslationGenerator
talking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do tavla mi kei ku"], [LojbanSentence
"I know that you were talking to me."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla lo nupre ku kei ku"], [LojbanSentence
"I know that you talked to the promisor."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla lo te nupre ku kei ku"], [LojbanSentence
"I know that you talked to the promisee."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo se nupre ku kei ku"], [LojbanSentence
"I know that you were talking about the promise."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo ciska ku kei ku"], [LojbanSentence
"I know that you were talking about the writer."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo ctuca ku kei ku"], [LojbanSentence
"I know that you were talking about the instructor."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo mlatu ku kei ku"], [LojbanSentence
"I know that you were talking about the cat."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo gerku ku kei ku"], [LojbanSentence
"I know that you were talking about the dog."])
            ]
        writing :: TranslationGenerator
writing = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do ciska fo ta kei ku"], [LojbanSentence
"I know that you write using that."])
            , ([LojbanSentence
"mi djuno lo du'u do ciska fi ta kei ku"], [LojbanSentence
"I know that you wrote something there."])
            , ([LojbanSentence
"mi djuno lo du'u lo ctuca ku ciska fi ta kei ku"], [LojbanSentence
"I know that the instructor wrote something there."])
            ]

translations6_sedu'u :: TranslationGenerator
translations6_sedu'u :: TranslationGenerator
translations6_sedu'u = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
cusku)] where
    cusku :: TranslationGenerator
cusku = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
beautiful, TranslationGenerator
likingPeople, TranslationGenerator
likingAnimals, TranslationGenerator
donatingAnimals, TranslationGenerator
beingFriend] where
        beautiful :: TranslationGenerator
beautiful = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi cusku lo se du'u do melbi kei ku"], [LojbanSentence
"I said that you are beautiful."])
            , ([LojbanSentence
"mi cusku lo se du'u lo prenu ku melbi kei ku"], [LojbanSentence
"I said that the person is beautiful."])
            , ([LojbanSentence
"do cusku lo se du'u mi melbi kei ku"], [LojbanSentence
"You said that I am beautiful."])
            , ([LojbanSentence
"do cusku lo se du'u lo prenu ku melbi kei ku"], [LojbanSentence
"You said that the person is beautiful."])
            ]
        likingPeople :: TranslationGenerator
likingPeople = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi cusku lo se du'u mi nelci do kei ku", LojbanSentence
"mi cusku lo se du'u nelci do kei ku"], [LojbanSentence
"I said that I like you."])
            , ([LojbanSentence
"do cusku lo se du'u do nelci mi kei ku", LojbanSentence
"do cusku lo se du'u nelci mi kei ku"], [LojbanSentence
"You said that you like me."])
            , ([LojbanSentence
"mi cusku lo se du'u mi nelci lo ciska ku kei ku", LojbanSentence
"mi cusku lo se du'u nelci lo ciska ku kei ku"], [LojbanSentence
"I said that I like the writer."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u mi nelci do kei ku"], [LojbanSentence
"The person said that I like you."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u do nelci mi kei ku"], [LojbanSentence
"The person said that you like me."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u nelci mi kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri nelci mi kei ku"], [LojbanSentence
"The person said that she likes me."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u nelci do kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri nelci do kei ku"], [LojbanSentence
"The person said that she likes you."])
            ]
        likingAnimals :: TranslationGenerator
likingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- mlatu
            [ ([LojbanSentence
"mi cusku lo se du'u mi nelci lo mlatu ku kei ku", LojbanSentence
"mi cusku lo se du'u nelci lo mlatu ku kei ku"], [LojbanSentence
"I said that I like the cat.", LojbanSentence
"I said that I like the cats.", LojbanSentence
"I said that I like cats."])
            , ([LojbanSentence
"mi cusku lo se du'u do nelci lo mlatu ku kei ku"], [LojbanSentence
"I said that you like the cat.", LojbanSentence
"I said that you like the cats.", LojbanSentence
"I said that you like cats."])
            , ([LojbanSentence
"do cusku lo se du'u do nelci lo mlatu ku kei ku", LojbanSentence
"do cusku lo se du'u nelci lo mlatu ku kei ku"], [LojbanSentence
"You said that you like the cat.", LojbanSentence
"You said that you like the cats.", LojbanSentence
"You said that you like cats."])
            , ([LojbanSentence
"do cusku lo se du'u mi nelci lo mlatu ku kei ku"], [LojbanSentence
"You said that I like the cat.", LojbanSentence
"You said that I like the cats.", LojbanSentence
"You said that I like cats."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u mi nelci lo mlatu ku kei ku"], [LojbanSentence
"The person said that I like the cat.", LojbanSentence
"The person said that I like the cats.", LojbanSentence
"The person said that I like cats."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u do nelci lo mlatu ku kei ku"], [LojbanSentence
"The person said that you like the cat.", LojbanSentence
"The person said that you like the cats.", LojbanSentence
"The person said that you like cats."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u nelci lo mlatu ku kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri nelci lo mlatu ku kei ku"], [LojbanSentence
"The person said that she liked the cat.", LojbanSentence
"The person said that she liked the cats.", LojbanSentence
"The person said that she likes cats."])
            -- gerku
            , ([LojbanSentence
"mi cusku lo se du'u mi nelci lo gerku ku kei ku", LojbanSentence
"mi cusku lo se du'u nelci lo gerku ku kei ku"], [LojbanSentence
"I said that I like the dog.", LojbanSentence
"I said that I like the dogs.", LojbanSentence
"I said that I like dogs."])
            , ([LojbanSentence
"mi cusku lo se du'u do nelci lo gerku ku kei ku"], [LojbanSentence
"I said that you like the dog.", LojbanSentence
"I said that you like the dogs.", LojbanSentence
"I said that you like dogs."])
            , ([LojbanSentence
"do cusku lo se du'u do nelci lo gerku ku kei ku", LojbanSentence
"do cusku lo se du'u nelci lo gerku ku kei ku"], [LojbanSentence
"You said that you like the dog.", LojbanSentence
"You said that you like the dogs.", LojbanSentence
"You said that you like dogs."])
            , ([LojbanSentence
"do cusku lo se du'u mi nelci lo gerku ku kei ku"], [LojbanSentence
"You said that I like the dog.", LojbanSentence
"You said that I like the dogs.", LojbanSentence
"You said that I like dogs."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u mi nelci lo gerku ku kei ku"], [LojbanSentence
"The person said that I like the dog.", LojbanSentence
"The person said that I like the dogs.", LojbanSentence
"The person said that I like dogs."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u do nelci lo gerku ku kei ku"], [LojbanSentence
"The person said that you like the dog.", LojbanSentence
"The person said that you like the dogs.", LojbanSentence
"The person said that you like dogs."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u nelci lo gerku ku kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri nelci lo gerku ku kei ku"], [LojbanSentence
"The person said that she liked the dog.", LojbanSentence
"The person said that she liked the dogs.", LojbanSentence
"The person said that she likes dogs."])
            ]
        donatingAnimals :: TranslationGenerator
donatingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi cusku lo se du'u mi dunda lo mlatu ku kei ku", LojbanSentence
"mi cusku lo se du'u dunda lo mlatu ku kei ku"], [LojbanSentence
"I said that I would donate the cat.", LojbanSentence
"I said that I would donate the cats."])
            , ([LojbanSentence
"do cusku lo se du'u do dunda lo mlatu ku kei ku", LojbanSentence
"do cusku lo se du'u dunda lo mlatu ku kei ku"], [LojbanSentence
"You said that you would donate the cat.", LojbanSentence
"You said that you would donate the cats."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u dunda lo mlatu ku kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri dunda lo mlatu ku kei ku"], [LojbanSentence
"The person said said that she would donate the cat.", LojbanSentence
"The person said that she would donate the cats."])
            , ([LojbanSentence
"mi cusku lo se du'u mi dunda lo mlatu ku do kei ku", LojbanSentence
"mi cusku lo se du'u dunda lo mlatu ku do kei ku"], [LojbanSentence
"I said that I would give you the cat.", LojbanSentence
"I said that I would give you the cats."])
            , ([LojbanSentence
"do cusku lo se du'u do dunda lo mlatu ku mi kei ku", LojbanSentence
"do cusku lo se du'u dunda lo mlatu ku mi kei ku"], [LojbanSentence
"You said that you would give me the cat.", LojbanSentence
"You said that you would give me the cats."])
            , ([LojbanSentence
"mi cusku lo se du'u mi dunda lo gerku ku do kei ku", LojbanSentence
"mi cusku lo se du'u dunda lo gerku ku do kei ku"], [LojbanSentence
"I said that I would give you the dog.", LojbanSentence
"I said that I would give you the dogs."])
            , ([LojbanSentence
"do cusku lo se du'u do dunda lo gerku ku mi kei ku", LojbanSentence
"do cusku lo se du'u dunda lo gerku ku mi kei ku"], [LojbanSentence
"You said that you would give me the dog.", LojbanSentence
"You said that you would give me the dogs."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u dunda lo mlatu ku mi kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri dunda lo mlatu ku mi kei ku"], [LojbanSentence
"The person said that she would give me the cat.", LojbanSentence
"The person said that she would give me the cats."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u dunda lo mlatu ku do kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri dunda lo mlatu ku do kei ku"], [LojbanSentence
"The person said that she would give you the cat.", LojbanSentence
"The person said that she would give you the cats."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u dunda lo gerku ku mi kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri dunda lo gerku ku mi kei ku"], [LojbanSentence
"The person said that she would give me the dog.", LojbanSentence
"The person said that she would give me the dogs."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u dunda lo gerku ku do kei ku", LojbanSentence
"lo prenu ku cusku lo se du'u ri dunda lo gerku ku do kei ku"], [LojbanSentence
"The person said that she would give you the dog.", LojbanSentence
"The person said that she would give you the dogs."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u do dunda lo mlatu ku mi kei ku"], [LojbanSentence
"The person said that you would give me the cat.", LojbanSentence
"The person said that you would give me the cats."])
            , ([LojbanSentence
"lo prenu ku cusku lo se du'u do dunda lo gerku ku mi kei ku"], [LojbanSentence
"The person said that you would give me the dog.", LojbanSentence
"The person said that you would give me the dogs."])
            ]
        beingFriend :: TranslationGenerator
beingFriend = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi cusku lo se du'u pendo kei ku", LojbanSentence
"mi cusku lo se du'u mi pendo kei ku"], [LojbanSentence
"I said that I would be a friend."])
            , ([LojbanSentence
"do cusku lo se du'u pendo kei ku", LojbanSentence
"do cusku lo se du'u do pendo kei ku"], [LojbanSentence
"You said that you would be a friend."])
            , ([LojbanSentence
"mi cusku lo se du'u do pendo kei ku"], [LojbanSentence
"I said that you would be a friend."])
            , ([LojbanSentence
"mi cusku lo se du'u lo ciska ku pendo kei ku"], [LojbanSentence
"I said that the writer would be a friend."])
            ]
        -- TODO: find out where the following sentences belong
            --[ (["mi nelci lo nu tavla do kei ku", "mi nelci lo nu mi tavla do kei ku"], ["I like to talk to you."]) -- is nelci really adequate?
            --, (["do nelci lo nu nupre kei ku", "do nelci lo nu do nupre kei ku"], ["You like to make promises."]) -- is nelci really adequate?
            --, (["lo prenu ku nelci lo nu nupre kei ku"], ["People like to make promises."]) -- is nelci really adequate?
            --, (["do cusku ma"], ["What did you say?"])
            --, (["lo prenu ku cusku ma"], ["What did the person say?"])
            --, (["lo prenu ku cusku ma do"], ["What did the person say to you?"])
            -- Wait until terminator ellision has been explained to use the following sentences
            {-, (["mi cusku lo se du'u mi nelci lo nu tavla do kei ku kei ku", "mi cusku lo se du'u mi nelci lo nu mi tavla do kei ku kei ku"], ["I said that I like to talk to you."])-}
            {-, (["mi cusku lo se du'u do nelci lo nu tavla mi kei ku kei ku", "mi cusku lo se du'u do nelci lo nu do tavla mi kei ku kei ku"], ["I said that you like to talk to me."])-}
            --]

translations6_extra :: TranslationGenerator
translations6_extra :: TranslationGenerator
translations6_extra = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
gleki, TranslationGenerator
tavla, TranslationGenerator
nupre, TranslationGenerator
cusku, TranslationGenerator
ciska] where
    gleki :: TranslationGenerator
gleki = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi gleki"], [LojbanSentence
"I am happy."])
        , ([LojbanSentence
"lo prenu ku gleki"], [LojbanSentence
"The person is happy."])
        , ([LojbanSentence
"lo gerku ku gleki"], [LojbanSentence
"The dog is happy.", LojbanSentence
"The dogs are happy."])
        , ([LojbanSentence
"lo mlatu ku gleki"], [LojbanSentence
"The cat is happy.", LojbanSentence
"The cats are happy."])
        ]
    tavla :: TranslationGenerator
tavla = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi tavla fi lo se nupre ku"], [LojbanSentence
"I talked about the promise."])
        , ([LojbanSentence
"do tavla fi lo se nupre ku"], [LojbanSentence
"You talked about the promise."])
        , ([LojbanSentence
"mi tavla do lo se nupre ku"], [LojbanSentence
"I talked to you about the promise."])
        , ([LojbanSentence
"do tavla mi lo se nupre ku"], [LojbanSentence
"You talked to me about the promise."])
        ]
    nupre :: TranslationGenerator
nupre = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo prenu ku nupre"], [LojbanSentence
"People make promises."])
        , ([LojbanSentence
"do nupre"], [LojbanSentence
"You made a promise."])
        , ([LojbanSentence
"do nupre fi mi"], [LojbanSentence
"You promised me.", LojbanSentence
"You promised us."])
        , ([LojbanSentence
"mi nupre fi do"], [LojbanSentence
"I promised you.", LojbanSentence
"We promised you."])
        ]
    cusku :: TranslationGenerator
cusku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi cusku"], [LojbanSentence
"I said something.", LojbanSentence
"I was saying something.", LojbanSentence
"I will say something."])
        , ([LojbanSentence
"do cusku"], [LojbanSentence
"You said something.", LojbanSentence
"You were saying something."])
        , ([LojbanSentence
"lo prenu ku cusku"], [LojbanSentence
"The person said something.", LojbanSentence
"The person was saying something."])
        ]
    ciska :: TranslationGenerator
ciska = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ciska fo ta"], [LojbanSentence
"I write using that."])
        , ([LojbanSentence
"mi ciska fi ta"], [LojbanSentence
"I wrote something there."])
        , ([LojbanSentence
"lo ctuca ku ciska fi ta"], [LojbanSentence
"The instructor wrote something there."])
        ]

translations6 :: TranslationGenerator
translations6 :: TranslationGenerator
translations6 = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators ([(Int, TranslationGenerator)] -> TranslationGenerator)
-> [(Int, TranslationGenerator)] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ ((Int
4,) (TranslationGenerator -> (Int, TranslationGenerator))
-> [TranslationGenerator] -> [(Int, TranslationGenerator)]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [TranslationGenerator
translations6_nu, TranslationGenerator
translations6_du'u, TranslationGenerator
translations6_sedu'u]) [(Int, TranslationGenerator)]
-> [(Int, TranslationGenerator)] -> [(Int, TranslationGenerator)]
forall a. [a] -> [a] -> [a]
++ ((Int
1,) (TranslationGenerator -> (Int, TranslationGenerator))
-> [TranslationGenerator] -> [(Int, TranslationGenerator)]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [TranslationGenerator
translations6_extra])

-- * Lesson 7: Terminator elision
translations7 :: TranslationGenerator
translations7 :: TranslationGenerator
translations7 = TranslationGenerator
translations7_restricted

translations7_restricted :: TranslationGenerator
translations7_restricted :: TranslationGenerator
translations7_restricted = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
hasHouse), (Int
3, TranslationGenerator
nice), (Int
3, TranslationGenerator
giving), (Int
2, TranslationGenerator
talking), (Int
3, TranslationGenerator
gleki), (Int
3, TranslationGenerator
nupre), (Int
3, TranslationGenerator
djuno), (Int
3, TranslationGenerator
cusku)] where
    hasHouse :: TranslationGenerator
hasHouse = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo ctuca cu se zdani"], [LojbanSentence
"The instructor has a house."])
        , ([LojbanSentence
"lo prenu cu se zdani"], [LojbanSentence
"The person has a house."])
        , ([LojbanSentence
"lo tavla cu se zdani", LojbanSentence
"lo cusku cu se zdani"], [LojbanSentence
"The speaker has a house."])
        , ([LojbanSentence
"lo se tavla cu se zdani"], [LojbanSentence
"The listener has a house."])
        , ([LojbanSentence
"lo dunda cu se zdani"], [LojbanSentence
"The donor has a house."])
        , ([LojbanSentence
"lo te dunda cu se zdani"], [LojbanSentence
"The beneficiary (of the gift) has a house."])
        , ([LojbanSentence
"xu lo prenu cu se zdani"], [LojbanSentence
"Does the person have a house?"])
        , ([LojbanSentence
"xu lo ctuca cu se zdani"], [LojbanSentence
"Does the instructor have a house?"])
        ]
    nice :: TranslationGenerator
nice = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
beautiful, TranslationGenerator
like] where
        beautiful :: TranslationGenerator
beautiful = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo se dunda cu melbi mi"], [LojbanSentence
"The gift is beautiful to me.", LojbanSentence
"The gifts are beautiful to me."])
            , ([LojbanSentence
"lo se dunda cu melbi"], [LojbanSentence
"The gift is beautiful.", LojbanSentence
"The gifts are beautiful."])
            , ([LojbanSentence
"xu lo se dunda cu melbi do"], [LojbanSentence
"Is the gift beautiful to you?", LojbanSentence
"Are the gifts beautiful to you?"])
            , ([LojbanSentence
"xu lo se dunda cu melbi"], [LojbanSentence
"Is the gift beautiful?", LojbanSentence
"Are the gifts beautiful?"])
            , ([LojbanSentence
"xu lo ctuca cu melbi do"], [LojbanSentence
"Is the instructor beautiful to you?"])
            , ([LojbanSentence
"xu lo ctuca cu melbi"], [LojbanSentence
"Is the instructor beautiful?"])
            , ([LojbanSentence
"xu lo zdani cu melbi do"], [LojbanSentence
"Is the house beautiful to you?"])
            , ([LojbanSentence
"xu lo zdani cu melbi"], [LojbanSentence
"Is the house beautiful?"])
            , ([LojbanSentence
"xu lo mlatu cu melbi do"], [LojbanSentence
"Is the cat beautiful to you?"])
            , ([LojbanSentence
"xu lo mlatu cu melbi"], [LojbanSentence
"Is the cat beautiful?"])
            , ([LojbanSentence
"xu lo gerku cu melbi do"], [LojbanSentence
"Is the dog beautiful to you?"])
            , ([LojbanSentence
"xu lo gerku cu melbi"], [LojbanSentence
"Is the dog beautiful?"])
            , ([LojbanSentence
"lo se dunda cu melbi ma"], [LojbanSentence
"The gift is beautiful to whom?", LojbanSentence
"The gifts are beautiful to whom?"])
            , ([LojbanSentence
"lo mlatu cu melbi ma"], [LojbanSentence
"The cat is beautiful to whom?", LojbanSentence
"The cats are beautiful to whom?"])
            , ([LojbanSentence
"lo gerku cu melbi ma"], [LojbanSentence
"The dog is beautiful to whom?", LojbanSentence
"The dogs are beautiful to whom?"])
            ]
        like :: TranslationGenerator
like = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo te dunda cu nelci lo se dunda"], [LojbanSentence
"The recipient liked the gift.", LojbanSentence
"The recipient will like the gift.", LojbanSentence
"The recipients liked the gifts."])
            , ([LojbanSentence
"lo ctuca cu nelci lo se dunda"], [LojbanSentence
"The instructor liked the gift.", LojbanSentence
"The instructor will like the gift."])
            , ([LojbanSentence
"xu do nelci lo se dunda"], [LojbanSentence
"Did you like the gift?"])
            , ([LojbanSentence
"xu lo te dunda cu nelci lo se dunda"], [LojbanSentence
"Did the recipient like the gift?"])
            , ([LojbanSentence
"xu lo ctuca cu nelci lo se dunda"], [LojbanSentence
"Did the instructor like the gift?"])
            , ([LojbanSentence
"xu do nelci lo ctuca"], [LojbanSentence
"Did you like the instructor?"])
            , ([LojbanSentence
"ma nelci lo se dunda"], [LojbanSentence
"Who liked the gift?", LojbanSentence
"Who likes the gift?"])
            , ([LojbanSentence
"ma nelci lo mlatu"], [LojbanSentence
"Who likes cats?", LojbanSentence
"Who likes the cat?"])
            , ([LojbanSentence
"ma nelci lo gerku"], [LojbanSentence
"Who likes dogs?", LojbanSentence
"Who likes the dog?"])
            ]
    giving :: TranslationGenerator
giving = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
1, TranslationGenerator
general), (Int
3, TranslationGenerator
mlatu), (Int
3, TranslationGenerator
gerku)] where
        general :: TranslationGenerator
general = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo ctuca cu dunda ma do"], [LojbanSentence
"What did the instructor give you?"])
            , ([LojbanSentence
"ma dunda lo zdani"], [LojbanSentence
"Who donated the house?"])
            ]
        mlatu :: TranslationGenerator
mlatu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi dunda lo mlatu lo pendo"], [LojbanSentence
"I gave the cat to a friend.", LojbanSentence
"I gave the cats to a friend."])
            , ([LojbanSentence
"mi te dunda lo mlatu"], [LojbanSentence
"I was given a cat.", LojbanSentence
"We were given a cat."])
            , ([LojbanSentence
"(|lo prenu cu) dunda lo mlatu lo ctuca"], [LojbanSentence
"Somebody gave a cat to the instructor", LojbanSentence
"Somebody gave the cat to the instructor.", LojbanSentence
"Somebody gave the cats to the instructor."])
            , ([LojbanSentence
"lo ctuca cu dunda lo mlatu mi"], [LojbanSentence
"The instructor gave me a cat.", LojbanSentence
"The instructor gave me the cat.", LojbanSentence
"The instructor gave me the cats.", LojbanSentence
"The instructor gave us a cat.", LojbanSentence
"The instructor gave us the cat.", LojbanSentence
"The instructor gave us the cats."])
            , ([LojbanSentence
"(|lo prenu cu) dunda lo mlatu mi"], [LojbanSentence
"Somebody gave me a cat.", LojbanSentence
"Somebody gave me the cat.", LojbanSentence
"Somebody gave me the cats.", LojbanSentence
"Somebody gave us a cat.", LojbanSentence
"Somebody gave us the cat.", LojbanSentence
"Somebody gave us the cats."])
            , ([LojbanSentence
"ma te dunda lo mlatu"], [LojbanSentence
"Who was given a cat?"])
            , ([LojbanSentence
"do dunda lo mlatu ma"], [LojbanSentence
"To whom did you give the cat?", LojbanSentence
"To whom did you give the cats?"])
            , ([LojbanSentence
"ma dunda lo mlatu lo ctuca"], [LojbanSentence
"Who gave the cat to the instructor?"])
            , ([LojbanSentence
"ma dunda lo mlatu mi"], [LojbanSentence
"Who gave me a cat?"])
            , ([LojbanSentence
"ma dunda lo mlatu do"], [LojbanSentence
"Who gave you a cat?"])
            , ([LojbanSentence
"ma dunda lo mlatu"], [LojbanSentence
"Who donated the cat?"])
            ]
        gerku :: TranslationGenerator
gerku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi dunda lo gerku lo pendo"], [LojbanSentence
"I gave the dog to a friend.", LojbanSentence
"I gave the dogs to a friend."])
            , ([LojbanSentence
"mi te dunda lo gerku"], [LojbanSentence
"I was given a dog.", LojbanSentence
"We were given a dog."])
            , ([LojbanSentence
"(|lo prenu cu) dunda lo gerku lo ctuca"], [LojbanSentence
"Somebody gave a dog to the instructor", LojbanSentence
"Somebody gave the dog to the instructor.", LojbanSentence
"Somebody gave the dogs to the instructor."])
            , ([LojbanSentence
"lo ctuca cu dunda lo gerku mi"], [LojbanSentence
"The instructor gave me a dog.", LojbanSentence
"The instructor gave me the dog.", LojbanSentence
"The instructor gave me the dogs.", LojbanSentence
"The instructor gave us a dog.", LojbanSentence
"The instructor gave us the dog.", LojbanSentence
"The instructor gave us the dogs."])
            , ([LojbanSentence
"(|lo prenu cu) dunda lo gerku mi"], [LojbanSentence
"Somebody gave me a dog.", LojbanSentence
"Somebody gave me the dog.", LojbanSentence
"Somebody gave me the dogs.", LojbanSentence
"Somebody gave us a dog.", LojbanSentence
"Somebody gave us the dog.", LojbanSentence
"Somebody gave us the dogs."])
            , ([LojbanSentence
"ma te dunda lo gerku"], [LojbanSentence
"Who was given a dog?"])
            , ([LojbanSentence
"do dunda lo gerku ma"], [LojbanSentence
"To whom did you give the dog?", LojbanSentence
"To whom did you give the dogs?"])
            , ([LojbanSentence
"ma dunda lo gerku lo ctuca"], [LojbanSentence
"Who gave the dog to the instructor?"])
            , ([LojbanSentence
"ma dunda lo gerku mi"], [LojbanSentence
"Who gave me a dog?"])
            , ([LojbanSentence
"ma dunda lo gerku do"], [LojbanSentence
"Who gave you a dog?"])
            , ([LojbanSentence
"ma dunda lo gerku"], [LojbanSentence
"Who donated the dog?"])
            ]
    talking :: TranslationGenerator
talking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo prenu cu tavla lo mlatu"], [LojbanSentence
"A person is talking to a cat.", LojbanSentence
"The person talks to cats."])
        , ([LojbanSentence
"lo prenu cu tavla lo gerku"], [LojbanSentence
"A person is talking to a dog.", LojbanSentence
"The person talks to dogs."])
        , ([LojbanSentence
"xu do tavla fi lo mlatu"], [LojbanSentence
"Were you talking about the cat?", LojbanSentence
"Were you talking about the cats?", LojbanSentence
"Were you talking about cats?"])
        , ([LojbanSentence
"ma tavla fi lo mlatu"], [LojbanSentence
"Who is talking about the cat?"])
        , ([LojbanSentence
"ma tavla fi lo gerku"], [LojbanSentence
"Who is talking about the dog?"])
        , ([LojbanSentence
"lo prenu cu tavla fi ma"], [LojbanSentence
"What is the person talking about?", LojbanSentence
"What was the person talking about?"])
        , ([LojbanSentence
"lo dunda cu tavla fi ma"], [LojbanSentence
"What is the donor talking about?", LojbanSentence
"What was the donor talking about?"])
        , ([LojbanSentence
"lo te dunda cu tavla fi ma"], [LojbanSentence
"What is the beneficiary (of the gift) talking about?", LojbanSentence
"What was the beneficiary (of the gift) talking about?"])
        , ([LojbanSentence
"lo ciska cu tavla fi ma"], [LojbanSentence
"What is the writer talking about?", LojbanSentence
"What was the writer talking about?"])
        , ([LojbanSentence
"xu do tavla fi lo gerku"], [LojbanSentence
"Were you talking about the dog?", LojbanSentence
"Were you talking about the dogs?", LojbanSentence
"Were you talking about dogs?"])
        ]
    gleki :: TranslationGenerator
gleki = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
givingAnimals, TranslationGenerator
liking, TranslationGenerator
know, TranslationGenerator
other] where
        givingAnimals :: TranslationGenerator
givingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu do dunda lo mlatu mi"], [LojbanSentence
"I am happy that you gave me the cat.", LojbanSentence
"I am happy that you gave me the cats."])
            , ([LojbanSentence
"mi gleki lo nu do dunda lo gerku mi"], [LojbanSentence
"I am happy that you gave me the dog.", LojbanSentence
"I am happy that you gave me the dogs."])
            , ([LojbanSentence
"mi gleki lo nu mi te dunda lo mlatu"], [LojbanSentence
"I am happy that I was given a cat.", LojbanSentence
"I am happy that I was given the cat."])
            , ([LojbanSentence
"mi gleki lo nu mi te dunda lo gerku"], [LojbanSentence
"I am happy that I was given a dog.", LojbanSentence
"I am happy that I was given the dog."])
            ]
        liking :: TranslationGenerator
liking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu lo prenu cu nelci mi"], [LojbanSentence
"I am happy that people like me."])
            , ([LojbanSentence
"mi gleki lo nu lo prenu cu nelci do"], [LojbanSentence
"I am happy that people like you.", LojbanSentence
"I am glad that people like you."])
            , ([LojbanSentence
"mi gleki lo nu lo ctuca cu nelci mi"], [LojbanSentence
"I am happy that the instructor likes me."])
            , ([LojbanSentence
"mi gleki lo nu lo ctuca cu nelci do"], [LojbanSentence
"I am happy that the instructor likes you.", LojbanSentence
"I am glad that the instructor likes you."])
            , ([LojbanSentence
"mi gleki lo nu do nelci lo ctuca"], [LojbanSentence
"I am glad that you like the instructor."])
            , ([LojbanSentence
"mi gleki lo nu do nelci lo ciska"], [LojbanSentence
"I am glad that you like the writer."])
            ]
        know :: TranslationGenerator
know = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu mi djuno fi lo mlatu"], [LojbanSentence
"I am happy that I know about cats."])
            , ([LojbanSentence
"mi gleki lo nu mi djuno fi lo gerku"], [LojbanSentence
"I am happy that I know about dogs."])
            , ([LojbanSentence
"mi gleki lo nu do djuno fi lo mlatu"], [LojbanSentence
"I am happy that you know about cats."])
            , ([LojbanSentence
"mi gleki lo nu do djuno fi lo gerku"], [LojbanSentence
"I am happy that you know about dogs."])
            ]
        other :: TranslationGenerator
other = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi gleki lo nu lo ctuca cu pendo mi"], [LojbanSentence
"I am happy that the instructor is my friend."])
            , ([LojbanSentence
"mi gleki lo nu lo ciska cu pendo mi"], [LojbanSentence
"I am happy that the writer is my friend."])
            , ([LojbanSentence
"mi gleki lo nu lo te dunda cu pendo mi"], [LojbanSentence
"I am happy that the beneficiary (of the gift) is my friend."])
            ]
    nupre :: TranslationGenerator
nupre = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
donatingAnimals, TranslationGenerator
donatingHouses] where
        donatingAnimals :: TranslationGenerator
donatingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"do nupre lo nu dunda lo mlatu", LojbanSentence
"do nupre lo nu do dunda lo mlatu"], [LojbanSentence
"You promised to donate the cat.", LojbanSentence
"You promised to donate the cats."])
            , ([LojbanSentence
"do nupre lo nu dunda lo gerku", LojbanSentence
"do nupre lo nu do dunda lo gerku"], [LojbanSentence
"You promised to donate the dog.", LojbanSentence
"You promised to donate the dogs."])
            , ([LojbanSentence
"do nupre lo nu dunda lo mlatu mi", LojbanSentence
"do nupre lo nu do dunda lo mlatu mi"], [LojbanSentence
"You promised to donate the cat to me.", LojbanSentence
"You promised to donate the cats to me.", LojbanSentence
"You promised to donate the cats to us."])
            , ([LojbanSentence
"do nupre lo nu dunda lo gerku mi", LojbanSentence
"do nupre lo nu do dunda lo gerku mi"], [LojbanSentence
"You promised to donate the dog to me.", LojbanSentence
"You promised to donate the dogs to me.", LojbanSentence
"You promised to donate the dogs to us."])
            , ([LojbanSentence
"do nupre lo nu dunda lo mlatu kei mi", LojbanSentence
"do nupre lo nu do dunda lo mlatu kei mi"], [LojbanSentence
"You promised me to donate the cat.", LojbanSentence
"You promised me to donate the cats.", LojbanSentence
"You promised us to donate the cat.", LojbanSentence
"You promised us to donate the cats."]) -- excellent!
            , ([LojbanSentence
"do nupre lo nu dunda lo gerku kei mi", LojbanSentence
"do nupre lo nu do dunda lo gerku kei mi"], [LojbanSentence
"You promised me to donate the dog.", LojbanSentence
"You promised me to donate the dogs.", LojbanSentence
"You promised us to donate the dog.", LojbanSentence
"You promised us to donate the dogs."]) -- excellent!
            ]
        donatingHouses :: TranslationGenerator
donatingHouses = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"do nupre lo nu dunda lo zdani kei mi", LojbanSentence
"do nupre lo nu do dunda lo zdani kei mi"], [LojbanSentence
"You promised me to donate the house.", LojbanSentence
"You promised me to donate the houses.", LojbanSentence
"You promised us to donate the house.", LojbanSentence
"You promised us to donate the houses."])
            , ([LojbanSentence
"do nupre lo nu dunda lo zdani mi", LojbanSentence
"do nupre lo nu do dunda lo zdani mi"], [LojbanSentence
"You promised to donate the house to me.", LojbanSentence
"You promised to donate the houses to us."]) -- excellent!
            ]
    djuno :: TranslationGenerator
djuno = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
liking, TranslationGenerator
talking] where
        liking :: TranslationGenerator
liking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do nelci lo ciska"], [LojbanSentence
"I know that you like the writer."])
            , ([LojbanSentence
"mi djuno lo du'u do nelci lo mlatu"], [LojbanSentence
"I know that you like cats."])
            , ([LojbanSentence
"mi djuno lo du'u do nelci lo gerku"], [LojbanSentence
"I know that you like dogs."])
            , ([LojbanSentence
"mi djuno lo du'u lo prenu cu nelci lo mlatu"], [LojbanSentence
"I know that people like cats."])
            , ([LojbanSentence
"mi djuno lo du'u lo prenu cu nelci lo gerku"], [LojbanSentence
"I know that people like dogs."])
            , ([LojbanSentence
"mi djuno lo du'u lo mlatu cu nelci lo gerku"], [LojbanSentence
"I know that cats like dogs."])
            , ([LojbanSentence
"mi djuno lo du'u lo gerku cu nelci lo mlatu"], [LojbanSentence
"I know that dogs like cats."])
            , ([LojbanSentence
"mi djuno lo du'u lo mlatu cu nelci lo prenu"], [LojbanSentence
"I know that cats like people."])
            , ([LojbanSentence
"mi djuno lo du'u lo gerku cu nelci lo prenu"], [LojbanSentence
"I know that dogs like people."])
            ]
        talking :: TranslationGenerator
talking = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi djuno lo du'u do tavla lo nupre"], [LojbanSentence
"I know that you talked to the promisor."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla lo te nupre"], [LojbanSentence
"I know that you talked to the promisee."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo se nupre"], [LojbanSentence
"I know that you were talking about the promise."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo ciska"], [LojbanSentence
"I know that you were talking about the writer."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo ctuca"], [LojbanSentence
"I know that you were talking about the instructor."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo mlatu"], [LojbanSentence
"I know that you were talking about the cat."])
            , ([LojbanSentence
"mi djuno lo du'u do tavla fi lo gerku"], [LojbanSentence
"I know that you were talking about the dog."])
            ]
    cusku :: TranslationGenerator
cusku = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
likingPeople, TranslationGenerator
likingAnimals, TranslationGenerator
donatingAnimals, TranslationGenerator
others] where
        likingPeople :: TranslationGenerator
likingPeople = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi cusku lo se du'u mi nelci lo ciska", LojbanSentence
"mi cusku lo se du'u nelci lo ciska"], [LojbanSentence
"I said that I like the writer."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u mi nelci do"], [LojbanSentence
"The person said that I like you."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u do nelci mi"], [LojbanSentence
"The person said that you like me."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u nelci mi"], [LojbanSentence
"The person said that she likes me."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u nelci do"], [LojbanSentence
"The person said that she likes you."])
            ]
        likingAnimals :: TranslationGenerator
likingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- mlatu
            [ ([LojbanSentence
"mi cusku lo se du'u mi nelci lo mlatu", LojbanSentence
"mi cusku lo se du'u nelci lo mlatu"], [LojbanSentence
"I said that I like the cat.", LojbanSentence
"I said that I like the cats.", LojbanSentence
"I said that I like cats."])
            , ([LojbanSentence
"mi cusku lo se du'u do nelci lo mlatu"], [LojbanSentence
"I said that you like the cat.", LojbanSentence
"I said that you like the cats.", LojbanSentence
"I said that you like cats."])
            , ([LojbanSentence
"do cusku lo se du'u do nelci lo mlatu", LojbanSentence
"do cusku lo se du'u nelci lo mlatu"], [LojbanSentence
"You said that you like the cat.", LojbanSentence
"You said that you like the cats.", LojbanSentence
"You said that you like cats."])
            , ([LojbanSentence
"do cusku lo se du'u mi nelci lo mlatu"], [LojbanSentence
"You said that I like the cat.", LojbanSentence
"You said that I like the cats.", LojbanSentence
"You said that I like cats."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u mi nelci lo mlatu"], [LojbanSentence
"The person said that I like the cat.", LojbanSentence
"The person said that I like the cats.", LojbanSentence
"The person said that I like cats."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u do nelci lo mlatu"], [LojbanSentence
"The person said that you like the cat.", LojbanSentence
"The person said that you like the cats.", LojbanSentence
"The person said that you like cats."])
            -- gerku
            , ([LojbanSentence
"mi cusku lo se du'u mi nelci lo gerku", LojbanSentence
"mi cusku lo se du'u nelci lo gerku"], [LojbanSentence
"I said that I like the dog.", LojbanSentence
"I said that I like the dogs.", LojbanSentence
"I said that I like dogs."])
            , ([LojbanSentence
"mi cusku lo se du'u do nelci lo gerku"], [LojbanSentence
"I said that you like the dog.", LojbanSentence
"I said that you like the dogs.", LojbanSentence
"I said that you like dogs."])
            , ([LojbanSentence
"do cusku lo se du'u do nelci lo gerku", LojbanSentence
"do cusku lo se du'u nelci lo gerku"], [LojbanSentence
"You said that you like the dog.", LojbanSentence
"You said that you like the dogs.", LojbanSentence
"You said that you like dogs."])
            , ([LojbanSentence
"do cusku lo se du'u mi nelci lo gerku"], [LojbanSentence
"You said that I like the dog.", LojbanSentence
"You said that I like the dogs.", LojbanSentence
"You said that I like dogs."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u mi nelci lo gerku"], [LojbanSentence
"The person said that I like the dog.", LojbanSentence
"The person said that I like the dogs.", LojbanSentence
"The person said that I like dogs."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u do nelci lo gerku"], [LojbanSentence
"The person said that you like the dog.", LojbanSentence
"The person said that you like the dogs.", LojbanSentence
"The person said that you like dogs."])
            ]
        donatingAnimals :: TranslationGenerator
donatingAnimals = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo prenu cu cusku lo se du'u dunda lo mlatu mi"], [LojbanSentence
"The person said that she would give me the cat.", LojbanSentence
"The person said that she would give me the cats."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u dunda lo mlatu do"], [LojbanSentence
"The person said that she would give you the cat.", LojbanSentence
"The person said that she would give you the cats."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u dunda lo gerku mi"], [LojbanSentence
"The person said that she would give me the dog.", LojbanSentence
"The person said that she would give me the dogs."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u dunda lo gerku do"], [LojbanSentence
"The person said that she would give you the dog.", LojbanSentence
"The person said that she would give you the dogs."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u do dunda lo mlatu mi"], [LojbanSentence
"The person said that you would give me the cat.", LojbanSentence
"The person said that you would give me the cats."])
            , ([LojbanSentence
"lo prenu cu cusku lo se du'u do dunda lo gerku mi"], [LojbanSentence
"The person said that you would give me the dog.", LojbanSentence
"The person said that you would give me the dogs."])
            ]
        others :: TranslationGenerator
others = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi cusku lo se du'u lo ciska cu pendo"], [LojbanSentence
"I said that the writer would be a friend."])
            , ([LojbanSentence
"mi cusku lo se du'u mi nelci lo nu {mi} tavla do", LojbanSentence
"mi cusku lo se du'u mi nelci lo nu mi tavla do"], [LojbanSentence
"I said that I like to talk to you."]) -- is nelci really adequate?
            , ([LojbanSentence
"mi cusku lo se du'u do nelci lo nu {do} tavla mi"], [LojbanSentence
"I said that you like to talk to me."]) -- is nelci really adequate?
            , ([LojbanSentence
"xu do cusku lo se du'u mi melbi do", LojbanSentence
"xu do cusku lo se du'u mi melbi"], [LojbanSentence
"Did you say that you find me beautiful?"])
            , ([LojbanSentence
"xu do cusku lo se du'u mi melbi", LojbanSentence
"xu do cusku lo se du'u mi melbi do"], [LojbanSentence
"Did you say that I am beautiful?"])
            ]

-- * Lesson 8: Checkpoint -- Lessons 1-7
translations1to7 :: TranslationGenerator
translations1to7 :: TranslationGenerator
translations1to7 = TranslationGenerator -> TranslationGenerator
simplifyTerminatorsInTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
translations3, TranslationGenerator
translations4_sentences, TranslationGenerator
translations5, TranslationGenerator
translations6, TranslationGenerator
translations7]

-- * Lesson 9: Relative clauses
-- questionExercises5 :: "What did you promise", "What did you say, ..."
-- Interesting: xu do djuno lo se cusku
-- TODO: add some translations involving "this computer" ("ti poi skami", but also accept "lo vi skami")

-- TODO: questions with "ma"
translations9_noi :: TranslationGenerator
translations9_noi :: TranslationGenerator
translations9_noi = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
computer, TranslationGenerator
uses, TranslationGenerator
knower, TranslationGenerator
instructor, TranslationGenerator
friend, TranslationGenerator
house, TranslationGenerator
animals] where
    usesComputers :: [([LojbanSentence], [LojbanSentence])]
usesComputers =
        [ ([LojbanSentence
"lo ctuca noi {ke'a} pilno lo skami cu lojbo"], [LojbanSentence
"The instructor, who uses computers, is Lojbanic."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} pilno lo skami cu tavla mi"], [LojbanSentence
"The instructor, who uses computers, talked to me."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} pilno lo skami cu tavla fi do"], [LojbanSentence
"The instructor, who uses computers, is talking about you.", LojbanSentence
"The instructor, who uses computers, talked about you."])
        , ([LojbanSentence
"xu lo ctuca noi {ke'a} pilno lo skami cu tavla mi"], [LojbanSentence
"Is the instructor, who uses computers, talking to me?"])
        , ([LojbanSentence
"xu lo ctuca noi {ke'a} pilno lo skami cu tavla fi mi"], [LojbanSentence
"Is the instructor, who uses computers, talking about me?"])
        ]
    computer :: TranslationGenerator
computer = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList ([([LojbanSentence], [LojbanSentence])] -> TranslationGenerator)
-> [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [([LojbanSentence], [LojbanSentence])]
usesComputers [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
forall a. [a] -> [a] -> [a]
++
        [ ([LojbanSentence
"lo ctuca noi {ke'a} dunda lo skami cu se zdani"], [LojbanSentence
"The instructor, who donated the computer, has a house."])
        , ([LojbanSentence
"lo tavla noi {ke'a} dunda lo skami cu se zdani"], [LojbanSentence
"The speaker, who donated the computer, has a house."])
        ]
    uses :: TranslationGenerator
uses = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList ([([LojbanSentence], [LojbanSentence])] -> TranslationGenerator)
-> [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [([LojbanSentence], [LojbanSentence])]
usesComputers [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
forall a. [a] -> [a] -> [a]
++
        [ ([LojbanSentence
"lo ctuca noi {ke'a} lojbo cu cusku lo se du'u lo skami cu se pilno"], [LojbanSentence
"The instructor, who is Lojbanic, said that computers are useful."])
        ]
    knower :: TranslationGenerator
knower = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu ke'a tavla (ke'a|vo'a) ku'o lojbo", LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu (|ke'a) tavla vo'a ku'o lojbo"], [LojbanSentence
"The knower, who enjoys talking to himself, is Lojbanic."])
        , ([LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu ke'a tavla (ke'a|vo'a) ku'o ciska ta", LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu (|ke'a) tavla vo'a ku'ciska ta pendo"], [LojbanSentence
"The knower, who enjoys talking to himself, wrote that."])
        , ([LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu ke'a tavla (ke'a|vo'a) ku'o ctuca mi", LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu (|ke'a) tavla vo'a ku'o ctuca mi"], [LojbanSentence
"The knower, who enjoys talking to himself, taught us."])
        , ([LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu ke'a tavla (ke'a|vo'a) ku'o pilno lo skami", LojbanSentence
"lo djuno noi {ke'a} (nelci|se pluka) lo nu (|ke'a) tavla vo'a ku'o pilno lo skami"], [LojbanSentence
"The knower, who enjoys talking to himself, uses computers."])
        ]
    instructor :: TranslationGenerator
instructor = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo ctuca noi {ke'a} djuno fi lo gerku ku'o dunda lo plise"], [LojbanSentence
"The instructor, who knows about dogs, donated the apple."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} tavla do cu nelci lo plise"], [LojbanSentence
"The instructor, who talked to you, likes apples."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} tavla fi do cu nelci lo plise"], [LojbanSentence
"The instructor, who talked about you, likes apples.", LojbanSentence
"The instructor, who talked about you, liked the apple."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} pendo mi cu se zdani"], [LojbanSentence
"The instructor, who is my friend, has a house."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} pendo mi cu cusku lo se du'u {ri} nelci lo mlatu"], [LojbanSentence
"The instructor, who is my friend, said that he likes cats."])
        ]
    friend :: TranslationGenerator
friend = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo dunda noi {ke'a} pendo mi cu gleki"], [LojbanSentence
"The donor, who is my friend, is happy."])
        , ([LojbanSentence
"lo te dunda noi {ke'a} pendo mi cu gleki"], [LojbanSentence
"The beneficiary (of the gift), who is my friend, is happy."])
        , ([LojbanSentence
"lo vecnu noi {ke'a} pendo mi cu gleki"], [LojbanSentence
"The seller, who is my friend, is happy."])
        , ([LojbanSentence
"lo te vecnu noi {ke'a} pendo mi cu gleki"], [LojbanSentence
"The buyer, who is my friend, is happy."])

        , ([LojbanSentence
"lo dunda noi {ke'a} pendo mi cu ciska ta"], [LojbanSentence
"The donor, who is my friend, wrote that."])
        , ([LojbanSentence
"lo te dunda noi {ke'a} pendo mi ciska ta"], [LojbanSentence
"The beneficiary (of the gift), who is my friend, wrote that."])
        , ([LojbanSentence
"lo vecnu noi {ke'a} pendo mi cu ciska ta"], [LojbanSentence
"The seller, who is my friend, wrote that."])
        , ([LojbanSentence
"lo te vecnu noi {ke'a} pendo mi cu ciska ta"], [LojbanSentence
"The buyer, who is my friend, wrote that."])
        ]
    house :: TranslationGenerator
house = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo zdani noi {ke'a} melbi do cu se dunda fi mi"], [LojbanSentence
"The house, which you found beautiful, was donated to me."])
        , ([LojbanSentence
"lo zdani noi {ke'a} melbi do cu se dunda mi"], [LojbanSentence
"The house, which you found beautiful, was donated by me."])
        , ([LojbanSentence
"lo zdani noi {ke'a} melbi do cu se vecnu"], [LojbanSentence
"The house, which you found beautiful, was sold."])
        , ([LojbanSentence
"lo zdani noi {ke'a} melbi do cu se vecnu lo ctuca"], [LojbanSentence
"The house, which you found beautiful, was sold by the instructor."])
        , ([LojbanSentence
"lo zdani noi {ke'a} melbi do cu se vecnu fi lo ctuca"], [LojbanSentence
"The house, which you found beautiful, was sold to the instructor."])
        ]
    animals :: TranslationGenerator
animals = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
mlatu, TranslationGenerator
gerku] where
        mlatu :: TranslationGenerator
mlatu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo mlatu noi {ke'a} melbi do cu nelci lo gerku"], [LojbanSentence
"The cat, which you find beautiful, likes dogs."])
            , ([LojbanSentence
"mi nelci lo mlatu noi {ke'a} melbi"], [LojbanSentence
"I like the cat, which is beautiful."])
            , ([LojbanSentence
"mi nelci lo se dunda noi {ke'a} mlatu"], [LojbanSentence
"I liked the gift, which was a cat."])
            , ([LojbanSentence
"lo mlatu noi {ke'a} pendo do cu gleki"], [LojbanSentence
"The cat, who is your friend, is happy."])
            , ([LojbanSentence
"lo pendo noi {ke'a} vecnu lo skami cu nelci lo mlatu"], [LojbanSentence
"The friend, who sells computers, likes cats."])
            ]
        gerku :: TranslationGenerator
gerku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo gerku noi {ke'a} melbi do cu nelci lo mlatu"], [LojbanSentence
"The dog, which you find beautiful, likes cats."])
            , ([LojbanSentence
"mi nelci lo gerku noi {ke'a} melbi"], [LojbanSentence
"I like the dog, which is beautiful."])
            , ([LojbanSentence
"mi nelci lo se dunda noi {ke'a} gerku"], [LojbanSentence
"I liked the gift, which was a dog."])
            , ([LojbanSentence
"lo gerku noi {ke'a} pendo do cu gleki"], [LojbanSentence
"The dog, who is your friend, is happy."])
            , ([LojbanSentence
"lo pendo noi {ke'a} vecnu lo skami cu nelci lo gerku"], [LojbanSentence
"The friend, who sells computers, likes dogs."])
            ]

translations9_poi :: TranslationGenerator
translations9_poi :: TranslationGenerator
translations9_poi = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
computer, TranslationGenerator
uses, TranslationGenerator
house, TranslationGenerator
animals, TranslationGenerator
general] where
    usesComputers :: [([LojbanSentence], [LojbanSentence])]
usesComputers =
        [ ([LojbanSentence
"lo skami poi mi pilno (ke'a|) ku'o melbi"], [LojbanSentence
"The computer that I use is beautiful."])
        , ([LojbanSentence
"lo skami poi do pilno (ke'a|) ku'o melbi"], [LojbanSentence
"The computer that you use is beautiful."])
        , ([LojbanSentence
"mi nelci lo skami poi do pilno (ke'a|)"], [LojbanSentence
"I like the computer that you use."])
        , ([LojbanSentence
"xu do nelci lo skami poi do pilno (ke'a|)"], [LojbanSentence
"Do you like the computer that you use?"])
        , ([LojbanSentence
"xu do se melbi lo skami poi mi pilno (ke'a|)"], [LojbanSentence
"Do you find the computer that I use beautiful?"])
        , ([LojbanSentence
"mi nupre lo nu {mi} pilno lo skami poi do dunda (ke'a|fi) mi"], [LojbanSentence
"I promised to use the computers that you gave me."])
        , ([LojbanSentence
"mi nupre lo nu {mi} pilno lo skami poi do vecnu ke'a mi"], [LojbanSentence
"I promised to use the computers that you sold me."])
        , ([LojbanSentence
"mi pilno lo skami poi do dunda (ke'a|fi) mi (ku'o|ki'u|ku'o ki'u) lo nu (mi|) te vecnu lo mlatu"], [LojbanSentence
"I used the computer that you gave me to buy a cat."])
        , ([LojbanSentence
"mi pilno lo skami poi do dunda (ke'a|fi) mi (ku'o|ki'u|ku'o ki'u) lo nu (mi|) te vecnu lo gerku"], [LojbanSentence
"I used the computer that you gave me to buy a dog."])
        ]
    computer :: TranslationGenerator
computer = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList ([([LojbanSentence], [LojbanSentence])] -> TranslationGenerator)
-> [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [([LojbanSentence], [LojbanSentence])]
usesComputers [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
forall a. [a] -> [a] -> [a]
++
        [ ([LojbanSentence
"lo ctuca poi {ke'a} dunda lo skami cu se zdani"], [LojbanSentence
"The instructor who donated the computer has a house."])
        , ([LojbanSentence
"lo skami poi do tavla fi ke'a cu melbi"], [LojbanSentence
"The computer that you talked about is beautiful."])
        , ([LojbanSentence
"lo skami poi do dunda (ke'a|) cu melbi"], [LojbanSentence
"The computer that you donated is beautiful."])
        , ([LojbanSentence
"lo skami poi do nupre lo nu {do} dunda {ke'a} ku'o melbi"], [LojbanSentence
"The computer that you promised to donate is beautiful."])
        , ([LojbanSentence
"mi nelci lo skami poi do tavla fi ke'a"], [LojbanSentence
"I like the computer that you talked about."])
        , ([LojbanSentence
"mi nelci lo skami poi do dunda (ke'a|)"], [LojbanSentence
"I like the computer that you donated."])
        , ([LojbanSentence
"mi nelci lo skami poi do nupre lo nu {do} dunda {ke'a}"], [LojbanSentence
"I like the computer that you promised to donate."])
        , ([LojbanSentence
"xu do nelci lo skami poi mi tavla fi ke'a"], [LojbanSentence
"Did you like the computer that I talked about?"])
        , ([LojbanSentence
"mi nelci lo skami poi do vecnu (ke'a|)"], [LojbanSentence
"I like the computers that you sell.", LojbanSentence
"I liked the computer that you sold."])
        , ([LojbanSentence
"xu do nelci lo skami poi mi vecnu (ke'a|)"], [LojbanSentence
"Did you like the computer that I sold?"])
        ]
    uses :: TranslationGenerator
uses = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList ([([LojbanSentence], [LojbanSentence])] -> TranslationGenerator)
-> [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [([LojbanSentence], [LojbanSentence])]
usesComputers [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
-> [([LojbanSentence], [LojbanSentence])]
forall a. [a] -> [a] -> [a]
++
        [ ([LojbanSentence
"lo ctuca noi {ke'a} lojbo cu cusku lo se du'u lo skami cu se pilno"], [LojbanSentence
"The instructor, who is Lojbanic, said that computers are useful."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} lojbo cu gleki lo nu do dunda lo se pilno mi"], [LojbanSentence
"The instructor, who is Lojbanic, is happy that you gave me the tool."])
        , ([LojbanSentence
"lo ctuca noi {ke'a} lojbo cu gleki lo nu do vecnu lo se pilno mi"], [LojbanSentence
"The instructor, who is Lojbanic, is happy that you sold me the tool."])
        , ([LojbanSentence
"xu lo ctuca noi {ke'a} lojbo cu gleki lo nu do te vecnu lo se pilno"], [LojbanSentence
"Is the instructor, who is Lojbanic, happy that you bought the tool?"])
        , ([LojbanSentence
"xu lo ctuca noi {ke'a} lojbo cu gleki lo nu mi dunda lo se pilno do"], [LojbanSentence
"Is the instructor, who is Lojbanic, happy that I gave you the tool?"])
        , ([LojbanSentence
"xu lo ctuca noi {ke'a} lojbo cu gleki lo nu mi vecnu lo se pilno do"], [LojbanSentence
"Is the instructor, who is Lojbanic, happy that I sold you the tool?"])
        ]
    house :: TranslationGenerator
house = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo zdani poi {ke'a} melbi do cu se dunda fi mi"], [LojbanSentence
"The house that you found beautiful was donated to me."])
        , ([LojbanSentence
"lo zdani poi {ke'a} melbi do cu se dunda mi"], [LojbanSentence
"The house that you found beautiful was donated by me."])
        , ([LojbanSentence
"lo zdani poi {ke'a} melbi do cu se vecnu"], [LojbanSentence
"The house that you found beautiful was sold."])
        , ([LojbanSentence
"lo zdani poi {ke'a} melbi do cu se vecnu lo ctuca"], [LojbanSentence
"The house that you found beautiful was sold by the instructor."])
        , ([LojbanSentence
"lo zdani poi {ke'a} melbi do cu se vecnu fi lo ctuca"], [LojbanSentence
"The house that you found beautiful was sold to the instructor."])
        , ([LojbanSentence
"xu do vecnu lo zdani poi melbi mi"], [LojbanSentence
"Did you sell the house that I found beautiful?", LojbanSentence
"Are you selling the house that I found beautiful?"])
        , ([LojbanSentence
"xu lo ctuca cu vecnu lo zdani poi {ke'a} melbi do"], [LojbanSentence
"Did the instructor sell the house that you found beautiful?", LojbanSentence
"Will the instructor sell the house that you found beautiful?"])
        ]
    animals :: TranslationGenerator
animals = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
mlatu, TranslationGenerator
gerku] where
        mlatu :: TranslationGenerator
mlatu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- [ (["mi nelci lo mlatu poi {ke'a} simsa lo gerku"], ["I like cats that look like dogs."])
            [ ([LojbanSentence
"mi nelci lo mlatu poi {ke'a} ctuca lo gerku"], [LojbanSentence
"I like cats that teach dogs."])
            , ([LojbanSentence
"mi nelci lo mlatu poi {ke'a} nelci lo plise"], [LojbanSentence
"I like cats that like apples."])
            , ([LojbanSentence
"mi nelci lo plise poi {ke'a} melbi lo mlatu"], [LojbanSentence
"I like apples that are beautiful to cats."])
            , ([LojbanSentence
"mi nelci lo mlatu poi {ke'a} melbi", LojbanSentence
"mi nelci lo melbi mlatu"], [LojbanSentence
"I like the beautiful cat."])
            , ([LojbanSentence
"mi tavla lo prenu poi {ke'a} dunda lo mlatu"], [LojbanSentence
"I talked to the person who donated the cat."])
            , ([LojbanSentence
"mi tavla lo prenu poi {ke'a} dunda lo mlatu ku mi"], [LojbanSentence
"I talked to the person who gave me the cat.", LojbanSentence
"I talked to the person who gave me the cats."])
            , ([LojbanSentence
"mi djuno lo du'u lo mlatu poi do dunda (ke'a|fi) mi ku'o melbi"], [LojbanSentence
"I know that the cat you gave me is beautiful."])
            , ([LojbanSentence
"mi dunda lo mlatu poi do tavla fi ke'a"], [LojbanSentence
"I donated the cat that you were talking about."])
            , ([LojbanSentence
"mi nelci lo mlatu poi do tavla fi ke'a"], [LojbanSentence
"I like the cat that you were talking about."])
            , ([LojbanSentence
"mi nupre lo nu {mi} tavla lo prenu poi {ke'a} dunda lo mlatu"], [LojbanSentence
"I promised to talk to the person who donated the cat."])
            , ([LojbanSentence
"mi tavla fi lo mlatu poi do nupre lo nu {do} dunda (|ke'a)"], [LojbanSentence
"I talked about the cat that you promised to donate."])
            , ([LojbanSentence
"mi djuno lo du'u do nupre fi lo pendo poi {ke'a} dunda lo mlatu"], [LojbanSentence
"I know that you made a promise to the friend who donated the cat."])
            ]
        gerku :: TranslationGenerator
gerku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"mi nelci lo gerku poi {ke'a} ctuca lo mlatu"], [LojbanSentence
"I like dogs that teach cats."])
            , ([LojbanSentence
"mi nelci lo gerku poi {ke'a} nelci lo plise"], [LojbanSentence
"I like dogs that like apples."])
            , ([LojbanSentence
"mi nelci lo plise poi {ke'a} melbi lo gerku"], [LojbanSentence
"I like apples that are beautiful to dogs."])
            , ([LojbanSentence
"mi nelci lo gerku poi {ke'a} melbi", LojbanSentence
"mi nelci lo melbi gerku"], [LojbanSentence
"I like the beautiful dog."])
            , ([LojbanSentence
"mi tavla lo prenu poi {ke'a} dunda lo gerku"], [LojbanSentence
"I talked to the person who donated the dog."])
            , ([LojbanSentence
"mi tavla lo prenu poi {ke'a} dunda lo gerku ku mi"], [LojbanSentence
"I talked to the person who gave me the dog.", LojbanSentence
"I talked to the person who gave me the dogs."])
            , ([LojbanSentence
"mi djuno lo du'u lo gerku poi do dunda (ke'a|fi) mi ku'o melbi"], [LojbanSentence
"I know that the dog you gave me is beautiful."])
            , ([LojbanSentence
"mi dunda lo gerku poi do tavla fi ke'a"], [LojbanSentence
"I donated the dog that you were talking about."])
            , ([LojbanSentence
"mi nelci lo gerku poi do tavla fi ke'a"], [LojbanSentence
"I like the dog that you were talking about."])
            , ([LojbanSentence
"mi nupre lo nu {mi} tavla lo prenu poi {ke'a} dunda lo gerku"], [LojbanSentence
"I promised to talk to the person who donated the dog."])
            , ([LojbanSentence
"mi tavla fi lo gerku poi do nupre lo nu {do} dunda (|ke'a)"], [LojbanSentence
"I talked about the dog that you promised to donate."])
            , ([LojbanSentence
"mi djuno lo du'u do nupre fi lo pendo poi {ke'a} dunda lo gerku"], [LojbanSentence
"I know that you made a promise to the friend who donated the dog."])
            ]
    general :: TranslationGenerator
general = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi tavla lo prenu poi {ke'a} nupre fi do"], [LojbanSentence
"I talked to the person who promised you."])
        , ([LojbanSentence
"xu do tavla lo prenu poi {ke'a} nupre fi mi"], [LojbanSentence
"Did you talk to the person who promised me?"])
        , ([LojbanSentence
"mi tavla fi lo zdani poi do nupre lo nu {do} dunda (|ke'a)"], [LojbanSentence
"I talked about the house that you promised to donate."])
        , ([LojbanSentence
"xu do tavla fi lo zdani poi do nupre lo nu {do} dunda (|ke'a)"], [LojbanSentence
"Did you talk about the house that you promised to donate?"])
        , ([LojbanSentence
"mi tavla fi lo plise poi do dunda ke'a lo mlatu"], [LojbanSentence
"I am talking about the apple that you gave to the cat."])
        , ([LojbanSentence
"mi tavla fi lo plise poi do vecnu (|ke'a)"], [LojbanSentence
"I am talking about the apple that you sold."])
        , ([LojbanSentence
"xu lo gerku cu nelci lo plise poi do dunda {ke'a}"], [LojbanSentence
"Did the dog like the apple that you gave?"])
        , ([LojbanSentence
"mi tavla lo prenu poi {ke'a} dunda lo plise"], [LojbanSentence
"I talked to the person who donated the apple."])
        , ([LojbanSentence
"mi tavla fi lo prenu poi {ke'a} dunda lo plise"], [LojbanSentence
"I talked about the person who donated the apple."])
        , ([LojbanSentence
"xu do tavla lo prenu poi {ke'a} dunda lo plise"], [LojbanSentence
"Did you talk to the person who donated the apple?"])
        , ([LojbanSentence
"mi dunda lo plise poi do tavla fi ke'a"], [LojbanSentence
"I donated the apple that you were talking about."])
        , ([LojbanSentence
"mi nupre lo nu {mi} tavla lo prenu poi {ke'a} dunda lo plise"], [LojbanSentence
"I promised to talk to the person who donated the apple."])
        , ([LojbanSentence
"mi tavla fi lo plise poi do nupre lo nu {do} dunda {ke'a}"], [LojbanSentence
"I talked about the apple that you promised to donate."])
        , ([LojbanSentence
"mi djuno lo du'u do nupre fi lo pendo poi {ke'a} dunda lo plise"], [LojbanSentence
"I know that you made a promise to the friend who donated the apple."])
        , ([LojbanSentence
"xu do nupre fi lo pendo poi {ke'a} dunda lo plise"], [LojbanSentence
"Did you make a promise to the friend who donated the apple?"])
        , ([LojbanSentence
"mi cusku lo se du'u mi nelci lo plise poi do vecnu {ke'a}"], [LojbanSentence
"I said that I liked the apple that you sold."])
        , ([LojbanSentence
"xu do nelci lo plise poi mi vecnu {ke'a}"], [LojbanSentence
"Did you like the apple that I sold?"])
        , ([LojbanSentence
"xu do nelci lo plise poi mi te vecnu ke'a"], [LojbanSentence
"Did you like the apple that I bought?"])
        ]

translations9 :: TranslationGenerator
translations9 :: TranslationGenerator
translations9 = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
translations9_noi, TranslationGenerator
translations9_poi]

-- * Lesson 10: Linked sumti
translations10 :: TranslationGenerator
translations10 :: TranslationGenerator
translations10 = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
required_terminator, TranslationGenerator
cmene_complex, TranslationGenerator
general, TranslationGenerator
vecnu_zdani, TranslationGenerator
ctuca, TranslationGenerator
tavla, TranslationGenerator
bangu, TranslationGenerator
zdani, TranslationGenerator
cmene] where
    required_terminator :: TranslationGenerator
required_terminator = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi nelci lo cmene (be do be'o|pe do ge'u) noi (ke'a|) melbi"], [LojbanSentence
"I like your name, which is beautiful."])
        , ([LojbanSentence
"mi nelci lo zdani (be do be'o|pe do ge'u) noi (ke'a|) melbi"], [LojbanSentence
"I like your house, which is beautiful."])
        , ([LojbanSentence
"mi nelci lo bangu (be do be'o|pe do ge'u) noi mi nupre lo nu {mi} ctuca fo (ke'a|zo'e)"], [LojbanSentence
"I like your language, which I promised to teach."])
        ]
    cmene_complex :: TranslationGenerator
cmene_complex = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"ma cmene lo dunda be lo mlatu bei do"], [LojbanSentence
"What is the name of the one who gave you the cat?"])
        , ([LojbanSentence
"ma cmene lo dunda be lo mlatu"], [LojbanSentence
"What is the name of the one who donated the cat?"])
        , ([LojbanSentence
"ma cmene lo vecnu be lo mlatu"], [LojbanSentence
"What is the name of the one who sold the cat?"])
        , ([LojbanSentence
"ma cmene lo vecnu be lo mlatu bei do"], [LojbanSentence
"What is the name of the one who sold you the cat?"])

        , ([LojbanSentence
"ma cmene lo dunda be lo gerku bei do"], [LojbanSentence
"What is the name of the one who gave you the dog?"])
        , ([LojbanSentence
"ma cmene lo dunda be lo gerku"], [LojbanSentence
"What is the name of the one who donated the dog?"])
        , ([LojbanSentence
"ma cmene lo vecnu be lo gerku"], [LojbanSentence
"What is the name of the one who sold the dog?"])
        , ([LojbanSentence
"ma cmene lo vecnu be lo gerku bei do"], [LojbanSentence
"What is the name of the one who sold you the dog?"])

        , ([LojbanSentence
"ma cmene lo tavla be do"], [LojbanSentence
"What is the name of the one who talked to you?"])
        , ([LojbanSentence
"ma cmene lo tavla be do bei lo zdani"], [LojbanSentence
"What is the name of the one who talked to you about the house?"])
        , ([LojbanSentence
"ma cmene lo tavla be fi lo zdani"], [LojbanSentence
"What is the name of the one who talked about the house?"])
        ]
    general :: TranslationGenerator
general = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi nelci lo se nupre be do"], [LojbanSentence
"I like the promise that you made."])
        , ([LojbanSentence
"mi nelci lo se dunda be do"], [LojbanSentence
"I liked the gift that you gave."])
        , ([LojbanSentence
"mi nelci lo se dunda be do bei mi"], [LojbanSentence
"I liked the gift that you gave me."])
        , ([LojbanSentence
"mi nelci lo se dunda be fi do"], [LojbanSentence
"I liked the gift that you received."])
        , ([LojbanSentence
"mi nelci lo se dunda be fi mi"], [LojbanSentence
"I liked the gift that I received."])
        ]
    vecnu_zdani :: TranslationGenerator
vecnu_zdani = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi tavla lo vecnu be lo zdani"], [LojbanSentence
"I talked to the one who sold the house."])
        , ([LojbanSentence
"mi tavla lo vecnu be lo zdani (be|pe) do"], [LojbanSentence
"I talked to the one who sold your house."])
        , ([LojbanSentence
"mi tavla lo vecnu be lo zdani bei do"], [LojbanSentence
"I talked to the one who sold the house to you."])
        , ([LojbanSentence
"mi tavla lo vecnu be lo zdani be do be'o bei mi", LojbanSentence
"mi tavla lo vecnu be lo zdani pe do bei mi"], [LojbanSentence
"I talked to the one who sold me your house."])
        , ([LojbanSentence
"xu do tavla lo vecnu be lo zdani"], [LojbanSentence
"Did you talk to the one who sold the house?"])
        , ([LojbanSentence
"xu do tavla lo vecnu be lo zdani be do"], [LojbanSentence
"Did you talk to the one who sold your house?"])
        , ([LojbanSentence
"xu do tavla lo vecnu be lo zdani bei do"], [LojbanSentence
"Did you talk to the one who sold you the house?"])
        , ([LojbanSentence
"do vecnu lo zdani (be|pe) ma"], [LojbanSentence
"Whose house did you sell?"])
        , ([LojbanSentence
"do vecnu lo zdani (be|pe) mi ma"], [LojbanSentence
"To whom did you sell my house?"])
        ]
    ctuca :: TranslationGenerator
ctuca = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do dunda lo zdani lo ctuca be ma"], [LojbanSentence
"Whose instructor did you donate the house to?"])
        , ([LojbanSentence
"xu do dunda lo zdani lo ctuca be mi"], [LojbanSentence
"Did you donate the house to the instructor who taught me?"])
        , ([LojbanSentence
"xu do dunda lo zdani lo ctuca be do"], [LojbanSentence
"Did you donate the house to the instructor who taught you?"])
        , ([LojbanSentence
"xu do nelci lo ctuca (be|pe) do"], [LojbanSentence
"Do you like your instructor?", LojbanSentence
"Did you like your instructor?"])
        , ([LojbanSentence
"xu do nelci lo ctuca (be|pe) mi"], [LojbanSentence
"Do you like my instructor?"])
        , ([LojbanSentence
"mi pendo lo ctuca (be|pe) mi"], [LojbanSentence
"I am friends with my instructor."])
        , ([LojbanSentence
"mi pendo lo ctuca (be|pe) do"], [LojbanSentence
"I am friends with your instructor."])
        , ([LojbanSentence
"xu do pendo lo ctuca (be|pe) mi"], [LojbanSentence
"Are you friends with my instructor?"])
        , ([LojbanSentence
"xu do pendo lo ctuca (be|pe) do"], [LojbanSentence
"Are you friends with your instructor?"])
        ]
    tavla :: TranslationGenerator
tavla = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi dunda lo mlatu lo tavla be do"], [LojbanSentence
"I donated the cat to the one who was talking to you."])
        , ([LojbanSentence
"mi dunda lo mlatu lo tavla be fi do"], [LojbanSentence
"I donated the cat to the one who was talking about you."])
        , ([LojbanSentence
"mi dunda lo gerku lo tavla be do"], [LojbanSentence
"I donated the dog to the one who was talking to you."])
        , ([LojbanSentence
"mi dunda lo gerku lo tavla be fi do"], [LojbanSentence
"I donated the dog to the one who was talking about you."])

        , ([LojbanSentence
"lo tavla be do cu melbi"], [LojbanSentence
"The one who was talking to you is beautiful."])
        , ([LojbanSentence
"lo tavla be fi do cu melbi"], [LojbanSentence
"The one who was talking about you is beautiful."])
        , ([LojbanSentence
"lo tavla be fi mi cu melbi"], [LojbanSentence
"The one who was talking about me is beautiful."])

        , ([LojbanSentence
"lo tavla be do cu melbi mi"], [LojbanSentence
"The one who was talking to you is beautiful to me."])
        , ([LojbanSentence
"mi se melbi lo tavla be fi do"], [LojbanSentence
"The one who was talking about you is beautiful to me."])
        , ([LojbanSentence
"mi se melbi lo tavla be fi mi"], [LojbanSentence
"The one who was talking about me is beautiful to me."])
        ]
    bangu :: TranslationGenerator
bangu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi nelci lo bangu (be|pe) mi"], [LojbanSentence
"I like my language."])
        , ([LojbanSentence
"mi nelci lo bangu (be|pe) do"], [LojbanSentence
"I like your language."])
        , ([LojbanSentence
"xu do nelci lo bangu (be|pe) mi"], [LojbanSentence
"Do you like my language?"])
        , ([LojbanSentence
"xu do nelci lo bangu (be|pe) do"], [LojbanSentence
"Do you like your language?"])
        ]
    zdani :: TranslationGenerator
zdani = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi nelci lo zdani (be|pe) mi"], [LojbanSentence
"I like my house."])
        , ([LojbanSentence
"mi nelci lo zdani (be|pe) do"], [LojbanSentence
"I like your house."])
        , ([LojbanSentence
"xu do nelci lo zdani (be|pe) mi"], [LojbanSentence
"Do you like my house?"])
        , ([LojbanSentence
"xu do nelci lo zdani (be|pe) do"], [LojbanSentence
"Do you like your house?"])
        , ([LojbanSentence
"lo zdani (be|pe) mi cu melbi"], [LojbanSentence
"My house is beautiful."])
        , ([LojbanSentence
"lo zdani (be|pe) do cu melbi"], [LojbanSentence
"Your house is beautiful."])
        ]
    cmene :: TranslationGenerator
cmene = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi nelci lo cmene (be|pe) mi"], [LojbanSentence
"I like my name."])
        , ([LojbanSentence
"mi nelci lo cmene (be|pe) do"], [LojbanSentence
"I like your name."])
        , ([LojbanSentence
"xu do nelci lo cmene (be|pe) mi"], [LojbanSentence
"Do you like my name?"])
        , ([LojbanSentence
"xu do nelci lo cmene (be|pe) do"], [LojbanSentence
"Do you like your name?"])
        ]

-- * Lesson 11: Sumtcita
translations11 :: TranslationGenerator
translations11 :: TranslationGenerator
translations11 = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
3, TranslationGenerator
pi'o), (Int
3, TranslationGenerator
mu'i), (Int
3, TranslationGenerator
gau), (Int
3, TranslationGenerator
interesting)] where
    pi'o :: TranslationGenerator
pi'o = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- fanva
        [ ([LojbanSentence
"mi fanva sepi'o lo skami"], [LojbanSentence
"I translated using the computer."])
        --, (["mi fanva sepi'o lo te ctuca be fi do"], ["I translated using what you taught."])
        --, (["mi fanva sepi'o lo te ctuca be mi bei do"], ["I translated using what you taught me."])
        -- tavla (mi)
        , ([LojbanSentence
"mi tavla sepi'o lo skami"], [LojbanSentence
"I talk using a computer."])
        , ([LojbanSentence
"mi tavla lo pendo sepi'o lo skami"], [LojbanSentence
"I talk to friends using a computer."])
        , ([LojbanSentence
"mi tavla lo pendo (be|pe) mi sepi'o lo skami"], [LojbanSentence
"I talk to my friend using a computer.", LojbanSentence
"I talked to my friend using a computer.", LojbanSentence
"I talked to my friends using a computer."])
        -- tavla (xu do)
        , ([LojbanSentence
"xu do tavla sepi'o lo skami"], [LojbanSentence
"Do you talk using a computer?"])
        , ([LojbanSentence
"xu do tavla lo pendo sepi'o lo skami"], [LojbanSentence
"Do you talk to friends using a computer?"])
        , ([LojbanSentence
"xu do tavla lo pendo (be|pe) do sepi'o lo skami"], [LojbanSentence
"Do you talk to your friends using a computer?"])
        -- ciska
        , ([LojbanSentence
"mi ciska sepi'o lo skami", LojbanSentence
"mi ciska fo lo skami"], [LojbanSentence
"I write using a computer."])
        , ([LojbanSentence
"mi ciska sepi'o lo se dunda be do", LojbanSentence
"mi ciska fo lo se dunda be do"], [LojbanSentence
"I write using the gift that you gave."])
        , ([LojbanSentence
"mi ciska sepi'o lo se dunda be fi do", LojbanSentence
"mi ciska fo lo se dunda be fi do"], [LojbanSentence
"I wrote using the gift that you received."])
        , ([LojbanSentence
"mi ciska sepi'o lo se dunda be do bei mi", LojbanSentence
"mi ciska fo lo se dunda be do bei mi"], [LojbanSentence
"I write using the gift that you gave me."])
        -- ctuca
        , ([LojbanSentence
"mi ctuca sepi'o lo skami"], [LojbanSentence
"I teach using a computer."])
        , ([LojbanSentence
"mi ctuca lo prenu sepi'o lo skami"], [LojbanSentence
"I teach people using a computer."])
        , ([LojbanSentence
"mi ctuca sepi'o lo se dunda be do"], [LojbanSentence
"I teach using the gift that you gave."])
        , ([LojbanSentence
"mi ctuca sepi'o lo se dunda be fi mi"], [LojbanSentence
"I teach using the gift that I received."])
        , ([LojbanSentence
"mi ctuca sepi'o lo se dunda be do bei mi"], [LojbanSentence
"I teach using the gift that you gave me."])
        , ([LojbanSentence
"mi ctuca sepi'o lo se vecnu be do"], [LojbanSentence
"I teach using what you sold."])
        , ([LojbanSentence
"mi ctuca sepi'o lo se vecnu be fi mi"], [LojbanSentence
"I teach using what I bought."])
        , ([LojbanSentence
"mi ctuca sepi'o lo se vecnu be do bei mi"], [LojbanSentence
"I teach using what you sold me."])
        , ([LojbanSentence
"mi ctuca do sepi'o lo skami"], [LojbanSentence
"I taught you using a computer."])
        -- vecnu
        , ([LojbanSentence
"mi vecnu lo zdani (be|pe) mi sepi'o lo skami"], [LojbanSentence
"I sold my house using a computer."])
        ]
    mu'i :: TranslationGenerator
mu'i = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- tavla
        [ ([LojbanSentence
"mu'i ma do tavla mi"], [LojbanSentence
"Why do you talk to me?", LojbanSentence
"Why are you talking to me?"])
        , ([LojbanSentence
"mu'i ma do tavla fi mi"], [LojbanSentence
"Why were you talking about me?"])
        , ([LojbanSentence
"mu'i ma tavla fi lo mlatu"], [LojbanSentence
"Why talk about cats?", LojbanSentence
"Why talk about the cat?"])
        , ([LojbanSentence
"mu'i ma tavla fi lo gerku"], [LojbanSentence
"Why talk about dogs?", LojbanSentence
"Why talk about the dog?"])
        -- nelci
        , ([LojbanSentence
"mu'i ma do nelci lo zdani (be|pe) mi"], [LojbanSentence
"Why did you like my house?"])
        , ([LojbanSentence
"mu'i ma do nelci lo se dunda"], [LojbanSentence
"Why did you like the gift?"])
        , ([LojbanSentence
"mu'i ma do nelci lo prenu"], [LojbanSentence
"Why do you like people?"])
        -- pilno
        , ([LojbanSentence
"mu'i ma lo ctuca cu pilno lo skami"], [LojbanSentence
"Why does the instructor use computers?"])
        -- dunda
        , ([LojbanSentence
"mu'i ma do dunda lo mlatu"], [LojbanSentence
"Why did you donate the cat?"])
        , ([LojbanSentence
"mu'i ma do dunda lo gerku"], [LojbanSentence
"Why did you donate the dog?"])
        , ([LojbanSentence
"mu'i ma dunda"], [LojbanSentence
"Why donate?"])
        -- ctuca
        , ([LojbanSentence
"mu'i ma do ctuca"], [LojbanSentence
"Why do you teach?"])
        , ([LojbanSentence
"mu'i ma do se melbi lo zdani"], [LojbanSentence
"Why do you find the house beautiful?"])
        -- ciska
        , ([LojbanSentence
"mu'i ma lo prenu cu ciska"], [LojbanSentence
"Why do people write?"])
        , ([LojbanSentence
"mu'i ma do ciska ti"], [LojbanSentence
"Why did you write this?"])
        , ([LojbanSentence
"mu'i ma do ciska ta"], [LojbanSentence
"Why did you write that?"])
        -- others
        , ([LojbanSentence
"mu'i ma lo prenu cu se zdani"], [LojbanSentence
"Why do people have houses?"])
        , ([LojbanSentence
"mu'i ma do gleki"], [LojbanSentence
"Why are you happy?"])
        -- fanva
        , ([LojbanSentence
"mu'i ma do fanva"], [LojbanSentence
"Why do you translate?"])
        , ([LojbanSentence
"mu'i ma lo prenu cu fanva"], [LojbanSentence
"Why do people translate?"])
        , ([LojbanSentence
"mu'i ma do fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"Why do you translate to Lojban?"])
        , ([LojbanSentence
"mu'i ma do fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"Why do you translate from Lojban?"])
        ]
    gau :: TranslationGenerator
gau = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- tavla
        [ ([LojbanSentence
"gau do mi tavla do"], [LojbanSentence
"You made me talk to you."])
        , ([LojbanSentence
"gau do mi tavla fi lo gerku"], [LojbanSentence
"You made me talk about the dog."])
        , ([LojbanSentence
"gau do mi tavla fi lo mlatu"], [LojbanSentence
"You made me talk about the cat."])
        , ([LojbanSentence
"gau ma do tavla fi lo gerku"], [LojbanSentence
"Who made you talk about the dog?"])
        , ([LojbanSentence
"gau ma do tavla fi lo mlatu"], [LojbanSentence
"Who made you talk about the cat?"])
        -- dunda
        , ([LojbanSentence
"gau do mi dunda lo gerku"], [LojbanSentence
"You made me donate the dog."])
        , ([LojbanSentence
"gau do mi dunda lo mlatu"], [LojbanSentence
"You made me donate the cat."])
        , ([LojbanSentence
"gau do mi dunda lo zdani"], [LojbanSentence
"You made me donate the house."])
        , ([LojbanSentence
"gau ma do dunda lo zdani"], [LojbanSentence
"Who made you donate the house?"])
        , ([LojbanSentence
"gau ma do dunda lo gerku"], [LojbanSentence
"Who made you donate the dog?"])
        , ([LojbanSentence
"gau ma do dunda lo mlatu"], [LojbanSentence
"Who made you donate the cat?"])
        -- vecnu
        , ([LojbanSentence
"gau do mi vecnu lo gerku"], [LojbanSentence
"You made me sell the dog."])
        , ([LojbanSentence
"gau do mi vecnu lo mlatu"], [LojbanSentence
"You made me sell the cat."])
        , ([LojbanSentence
"gau do mi vecnu lo zdani"], [LojbanSentence
"You made me sell the house."])
        , ([LojbanSentence
"gau ma do vecnu lo zdani"], [LojbanSentence
"Who made you sell the house?"])
        , ([LojbanSentence
"gau ma do vecnu lo gerku"], [LojbanSentence
"Who made you sell the dog?"])
        , ([LojbanSentence
"gau ma do vecnu lo mlatu"], [LojbanSentence
"Who made you sell the cat?"])
        -- ciska
        , ([LojbanSentence
"gau do mi ciska ta"], [LojbanSentence
"You made me write that."])
        , ([LojbanSentence
"gau ma do ciska ta"], [LojbanSentence
"Who made you write that?"])
        -- gleki
        , ([LojbanSentence
"gau do mi gleki"], [LojbanSentence
"You make me happy."])
        , ([LojbanSentence
"xu gau mi do gleki"], [LojbanSentence
"Do I make you happy?"])
        -- melbi
        , ([LojbanSentence
"gau mi lo zdani cu melbi"], [LojbanSentence
"I made the house beautiful."])
        , ([LojbanSentence
"gau do lo zdani cu melbi"], [LojbanSentence
"You made the house beautiful."])
        , ([LojbanSentence
"xu gau do lo zdani cu melbi"], [LojbanSentence
"Did you make the house beautiful?"])
        , ([LojbanSentence
"gau ma lo zdani cu melbi"], [LojbanSentence
"Who made the house beautiful?"])
        -- cmene
        , ([LojbanSentence
"gau mi cmene lo gerku"], [LojbanSentence
"I named the dog."])
        , ([LojbanSentence
"gau mi cmene lo mlatu"], [LojbanSentence
"I named the cat."])
        -- fanva
        , ([LojbanSentence
"gau ma do fanva"], [LojbanSentence
"Who makes you translate?", LojbanSentence
"Who is making you translate?", LojbanSentence
"Who made you translate?"])
        , ([LojbanSentence
"gau ma do fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"Who made you translate to Lojban?"])
        , ([LojbanSentence
"gau ma do fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"Who made you translate from Lojban?"])
        , ([LojbanSentence
"gau lo ctuca do fanva"], [LojbanSentence
"The instructor is making you translate.", LojbanSentence
"The instructor made you translate."])
        , ([LojbanSentence
"gau lo ctuca do fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"The instructor is making you translate to Lojban.", LojbanSentence
"The instructor made you translate to Lojban."])
        , ([LojbanSentence
"gau lo ctuca do fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"The instructor is making you translate from Lojban.", LojbanSentence
"The instructor made you translate from Lojban."])
        ]
    interesting :: TranslationGenerator
interesting = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi dunda lo skami be pi'o do", LojbanSentence
"mi dunda lo skami ku poi do pilno {ke'a}"], [LojbanSentence
"I will donate the computer used by you."])
        , ([LojbanSentence
"mi vecnu lo skami be pi'o do", LojbanSentence
"mi vecnu lo skami ku poi do pilno {ke'a}"], [LojbanSentence
"I sold the computer used by you."])
        , ([LojbanSentence
"do tavla fi lo nu vecnu mu'i ma", LojbanSentence
"lo nu vecnu mu'i ma kei poi do tavla {fi ke'a}"], [LojbanSentence
"What was the motivation for the sale you are talking about?"])
        , ([LojbanSentence
"do tavla fi lo nu dunda mu'i ma", LojbanSentence
"lo nu dunda mu'i ma kei poi do tavla {fi ke'a}"], [LojbanSentence
"What was the motivation for the donation you are talking about?"])
        , ([LojbanSentence
"xu do nelci lo nu dunda mu'i lo (nu|ka|li'i) gleki"], [LojbanSentence
"Do you like events of donations motivated by happiness?"])
        , ([LojbanSentence
"mi tavla fi lo nu gleki mu'i lo nu lo gerku cu melbi"], [LojbanSentence
"I am talking about the event of happiness motivated by the dog being beautiful."])
        , ([LojbanSentence
"mi tavla fi lo nu mi gleki mu'i lo nu lo gerku cu melbi"], [LojbanSentence
"I am talking about the event of my happiness motivated by the dog being beautiful."])
        , ([LojbanSentence
"mi tavla fi lo nu do gleki gau lo gerku"], [LojbanSentence
"I am talking about the event of the dog making you happy."])
        ]

-- * Lesson 12: Tenses 1
translations12_pu :: TranslationGenerator
translations12_pu :: TranslationGenerator
translations12_pu = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
fanva, TranslationGenerator
dunda, TranslationGenerator
vecnu, TranslationGenerator
gleki, TranslationGenerator
ciska] where
    fanva :: TranslationGenerator
fanva = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi pu fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"I translated to Lojban."])
        , ([LojbanSentence
"mi pu fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"I translated from Lojban."])
        , ([LojbanSentence
"mi pu fanva ti"], [LojbanSentence
"I translated this."])
        , ([LojbanSentence
"mi pu fanva ti lo (lojbo|jbobau)"], [LojbanSentence
"I translated this to Lojban."])
        , ([LojbanSentence
"do pu fanva fi ma"], [LojbanSentence
"To what language did you translate?"])
        , ([LojbanSentence
"do pu fanva fo ma"], [LojbanSentence
"From what language did you translate?"])
        ]
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi pu dunda lo mlatu"], [LojbanSentence
"I donated the cat."])
        , ([LojbanSentence
"mi pu dunda lo gerku"], [LojbanSentence
"I donated the dog."])
        , ([LojbanSentence
"mi pu dunda lo zdani"], [LojbanSentence
"I donated the house."])
        , ([LojbanSentence
"xu do pu dunda lo mlatu"], [LojbanSentence
"Did you donate the cat?"])
        , ([LojbanSentence
"xu do pu dunda lo gerku"], [LojbanSentence
"Did you donate the dog?"])
        , ([LojbanSentence
"xu do pu dunda lo zdani"], [LojbanSentence
"Did you donate the house?"])
        ]
    vecnu :: TranslationGenerator
vecnu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi pu vecnu lo mlatu"], [LojbanSentence
"I sold the cat."])
        , ([LojbanSentence
"mi pu vecnu lo gerku"], [LojbanSentence
"I sold the dog."])
        , ([LojbanSentence
"mi pu vecnu lo zdani"], [LojbanSentence
"I sold the house."])
        , ([LojbanSentence
"xu do pu vecnu lo mlatu"], [LojbanSentence
"Did you sell the cat?"])
        , ([LojbanSentence
"xu do pu vecnu lo gerku"], [LojbanSentence
"Did you sell the dog?"])
        , ([LojbanSentence
"xu do pu vecnu lo zdani"], [LojbanSentence
"Did you sell the house?"])
        ]
    gleki :: TranslationGenerator
gleki = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi pu gleki"], [LojbanSentence
"I was happy."])
        , ([LojbanSentence
"do pu gleki"], [LojbanSentence
"You were happy."])
        , ([LojbanSentence
"xu do pu gleki"], [LojbanSentence
"Were you happy?"])
        , ([LojbanSentence
"lo prenu pu gleki"], [LojbanSentence
"The person was happy."])
        , ([LojbanSentence
"lo vecnu pu gleki"], [LojbanSentence
"The seller was happy."])
        , ([LojbanSentence
"lo te vecnu pu gleki"], [LojbanSentence
"The buyer was happy."])
        ]
    ciska :: TranslationGenerator
ciska = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do pu ciska ta"], [LojbanSentence
"You wrote that."])
        , ([LojbanSentence
"mi pu ciska ta"], [LojbanSentence
"I wrote that."])
        , ([LojbanSentence
"xu mi pu ciska ta"], [LojbanSentence
"Did I write that?"])
        , ([LojbanSentence
"do pu ciska ma"], [LojbanSentence
"What did you write?"])
        , ([LojbanSentence
"xu do pu ciska fo ti"], [LojbanSentence
"Did you write something using this?"])
        , ([LojbanSentence
"xu do pu ciska fo ta"], [LojbanSentence
"Did you write something using that?"])
        ]

-- TODO: translations with "ca ma" (when) and "pu/ca/ba SUMTI"
translations12_ca :: TranslationGenerator
translations12_ca :: TranslationGenerator
translations12_ca = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
fanva, TranslationGenerator
dunda, TranslationGenerator
vecnu, TranslationGenerator
gleki, TranslationGenerator
ciska] where
    fanva :: TranslationGenerator
fanva = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ca fanva fi lo lojbo"], [LojbanSentence
"I am translating to Lojban."])
        , ([LojbanSentence
"mi ca fanva fo lo lojbo"], [LojbanSentence
"I am translating from Lojban."])
        , ([LojbanSentence
"mi ca fanva ti"], [LojbanSentence
"I am translating this."])
        , ([LojbanSentence
"mi ca fanva ti lo lojbo"], [LojbanSentence
"I am translating this to Lojban."])
        , ([LojbanSentence
"do ca fanva fi ma"], [LojbanSentence
"To what language are you translating?"])
        , ([LojbanSentence
"do ca fanva fo ma"], [LojbanSentence
"From what language are you translating?"])
        ]
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ca dunda lo mlatu"], [LojbanSentence
"I am donating the cat."])
        , ([LojbanSentence
"mi ca dunda lo gerku"], [LojbanSentence
"I am donating the dog."])
        , ([LojbanSentence
"mi ca dunda lo zdani"], [LojbanSentence
"I am donating the house."])
        , ([LojbanSentence
"mi ca dunda"], [LojbanSentence
"I am donating."])
        , ([LojbanSentence
"xu do ca dunda lo mlatu"], [LojbanSentence
"Are you donating the cat?"])
        , ([LojbanSentence
"xu do ca dunda lo gerku"], [LojbanSentence
"Are you donating the dog?"])
        , ([LojbanSentence
"xu do ca dunda lo zdani"], [LojbanSentence
"Are you donating the house?"])
        , ([LojbanSentence
"xu do ca dunda"], [LojbanSentence
"Are you donating?"])
        ]
    vecnu :: TranslationGenerator
vecnu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ca vecnu lo mlatu"], [LojbanSentence
"I am selling the cat."])
        , ([LojbanSentence
"mi ca vecnu lo gerku"], [LojbanSentence
"I am selling the dog."])
        , ([LojbanSentence
"mi ca vecnu lo zdani"], [LojbanSentence
"I am selling the house."])
        , ([LojbanSentence
"mi ca vecnu"], [LojbanSentence
"I am selling."])
        , ([LojbanSentence
"xu do ca vecnu lo mlatu"], [LojbanSentence
"Are you selling the cat?"])
        , ([LojbanSentence
"xu do ca vecnu lo gerku"], [LojbanSentence
"Are you selling the dog?"])
        , ([LojbanSentence
"xu do ca vecnu lo zdani"], [LojbanSentence
"Are you selling the house?"])
        , ([LojbanSentence
"xu do ca vecnu"], [LojbanSentence
"Are you selling?"])
        ]
    gleki :: TranslationGenerator
gleki = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ca gleki"], [LojbanSentence
"I am happy."])
        , ([LojbanSentence
"xu do ca gleki"], [LojbanSentence
"Are you happy?"])
        , ([LojbanSentence
"lo prenu ca gleki"], [LojbanSentence
"The person is happy."])
        , ([LojbanSentence
"lo vecnu ca gleki"], [LojbanSentence
"The seller is happy."])
        , ([LojbanSentence
"lo te vecnu ca gleki"], [LojbanSentence
"The buyer is happy."])
        ]
    ciska :: TranslationGenerator
ciska = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do ca ciska ta"], [LojbanSentence
"Are you writing that?"])
        , ([LojbanSentence
"mi ca ciska ta"], [LojbanSentence
"I am writing that."])
        , ([LojbanSentence
"do ca ciska ma"], [LojbanSentence
"What are you writing?"])
        , ([LojbanSentence
"xu do ca ciska fo ti"], [LojbanSentence
"Are you writing something using this?"])
        , ([LojbanSentence
"xu do ca ciska fo ta"], [LojbanSentence
"Are you writing something using that?"])
        ]

translations12_ba :: TranslationGenerator
translations12_ba :: TranslationGenerator
translations12_ba = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
fanva, TranslationGenerator
dunda, TranslationGenerator
vecnu, TranslationGenerator
gleki, TranslationGenerator
ciska] where
    fanva :: TranslationGenerator
fanva = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ba fanva fi lo lojbo"], [LojbanSentence
"I will translate to Lojban."])
        , ([LojbanSentence
"mi ba fanva fo lo lojbo"], [LojbanSentence
"I will translate from Lojban."])
        , ([LojbanSentence
"mi ba fanva ti"], [LojbanSentence
"I will translate this."])
        , ([LojbanSentence
"mi ba fanva ti lo lojbo"], [LojbanSentence
"I will translate this to Lojban."])
        , ([LojbanSentence
"do ba fanva fi ma"], [LojbanSentence
"To what language will you translate?"])
        , ([LojbanSentence
"do ba fanva fo ma"], [LojbanSentence
"From what language will you translate?"])
        ]
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ba dunda lo mlatu"], [LojbanSentence
"I will donate the cat."])
        , ([LojbanSentence
"mi ba dunda lo gerku"], [LojbanSentence
"I will donate the dog."])
        , ([LojbanSentence
"mi ba dunda lo zdani"], [LojbanSentence
"I will donate the house."])
        , ([LojbanSentence
"xu do ba dunda lo mlatu"], [LojbanSentence
"Will you donate the cat?"])
        , ([LojbanSentence
"xu do ba dunda lo gerku"], [LojbanSentence
"Will you donate the dog?"])
        , ([LojbanSentence
"xu do ba dunda lo zdani"], [LojbanSentence
"Will you donate the house?"])
        ]
    vecnu :: TranslationGenerator
vecnu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ba vecnu lo mlatu"], [LojbanSentence
"I will sell the cat."])
        , ([LojbanSentence
"mi ba vecnu lo gerku"], [LojbanSentence
"I will sell the dog."])
        , ([LojbanSentence
"mi ba vecnu lo zdani"], [LojbanSentence
"I will sell the house."])
        , ([LojbanSentence
"xu do ba vecnu lo mlatu"], [LojbanSentence
"Will you sell the cat?"])
        , ([LojbanSentence
"xu do ba vecnu lo gerku"], [LojbanSentence
"Will you sell the dog?"])
        , ([LojbanSentence
"xu do ba vecnu lo zdani"], [LojbanSentence
"Will you sell the house?"])
        ]
    gleki :: TranslationGenerator
gleki = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ba gleki"], [LojbanSentence
"I will be happy."])
        , ([LojbanSentence
"do ba gleki"], [LojbanSentence
"You will be happy."])
        , ([LojbanSentence
"lo prenu ba gleki"], [LojbanSentence
"The person will be happy."])
        , ([LojbanSentence
"lo vecnu ba gleki"], [LojbanSentence
"The seller will be happy."])
        , ([LojbanSentence
"lo te vecnu ba gleki"], [LojbanSentence
"The buyer will be happy."])
        ]
    ciska :: TranslationGenerator
ciska = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"xu do ba ciska ta"], [LojbanSentence
"Will you write that?"])
        , ([LojbanSentence
"mi ba ciska ta"], [LojbanSentence
"I will write that."])
        , ([LojbanSentence
"do ba ciska ma"], [LojbanSentence
"What will you write?"])
        , ([LojbanSentence
"xu do ba ciska fo ti"], [LojbanSentence
"Will you write something using this?"])
        , ([LojbanSentence
"xu do ba ciska fo ta"], [LojbanSentence
"Will you write something using that?"])
        ]

translations12_unrestricted :: TranslationGenerator
translations12_unrestricted :: TranslationGenerator
translations12_unrestricted = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
cmene, TranslationGenerator
vecnu] where
    cmene :: TranslationGenerator
cmene = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi (|ca) nelci lo pu cmene (be|pe) do"], [LojbanSentence
"I like your former name."])
        , ([LojbanSentence
"xu do (|ca) nelci lo pu cmene (be|pe) do"], [LojbanSentence
"Do you like your former name?"])
        ]
    vecnu :: TranslationGenerator
vecnu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo pu vecnu cu (|ca) gleki"], [LojbanSentence
"The former seller is happy."])
        , ([LojbanSentence
"lo ba te vecnu cu (|ca) gleki"], [LojbanSentence
"The future buyer is happy."])
        ]

translations12_restricted :: TranslationGenerator
translations12_restricted :: TranslationGenerator
translations12_restricted = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
translations12_pu, TranslationGenerator
translations12_ca, TranslationGenerator
translations12_ba]

-- * Lesson 14: Quotations 1
translations14_zo :: TranslationGenerator
translations14_zo :: TranslationGenerator
translations14_zo = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
cusku] where
    -- TODO: sentences with "fanva" as the selbri
    cusku :: TranslationGenerator
cusku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- mi cusku
        [ ([LojbanSentence
"mi cusku zo do"], [LojbanSentence
"I said \"do\".", LojbanSentence
"I said \"you\"."])
        , ([LojbanSentence
"mi cusku zo prenu"], [LojbanSentence
"I said \"prenu\".", LojbanSentence
"I said \"person\"."])
        , ([LojbanSentence
"mi cusku zo pendo"], [LojbanSentence
"I said \"pendo\".", LojbanSentence
"I said \"friend\"."])
        , ([LojbanSentence
"mi cusku zo zdani"], [LojbanSentence
"I said \"zdani\".", LojbanSentence
"I said \"house\"."])
        , ([LojbanSentence
"mi cusku zo skami"], [LojbanSentence
"I said \"skami\".", LojbanSentence
"I said \"computer\"."])
        , ([LojbanSentence
"mi cusku zo gleki"], [LojbanSentence
"I said \"gleki\".", LojbanSentence
"I said \"happy\"."])
        , ([LojbanSentence
"mi cusku zo tavla"], [LojbanSentence
"I said \"tavla\".", LojbanSentence
"I said \"talk\"."])
        , ([LojbanSentence
"mi cusku zo djuno"], [LojbanSentence
"I said \"djuno\".", LojbanSentence
"I said \"know\"."])
        , ([LojbanSentence
"mi cusku zo pilno"], [LojbanSentence
"I said \"pilno\".", LojbanSentence
"I said \"use\"."])
        , ([LojbanSentence
"mi cusku zo bangu"], [LojbanSentence
"I said \"bangu\".", LojbanSentence
"I said \"language\"."])
        -- xu do cusku
        , ([LojbanSentence
"xu do cusku zo do"], [LojbanSentence
"Did you say \"do\"?", LojbanSentence
"Did you say \"you\"?"])
        , ([LojbanSentence
"xu do cusku zo prenu"], [LojbanSentence
"Did you say \"prenu\"?", LojbanSentence
"Did you say \"person\"?"])
        , ([LojbanSentence
"xu do cusku zo pendo"], [LojbanSentence
"Did you say \"pendo\"?", LojbanSentence
"Did you say \"friend\"?"])
        , ([LojbanSentence
"xu do cusku zo zdani"], [LojbanSentence
"Did you say \"zdani\"?", LojbanSentence
"Did you say \"house\"?"])
        , ([LojbanSentence
"xu do cusku zo skami"], [LojbanSentence
"Did you say \"skami\"?", LojbanSentence
"Did you say \"computer\"?"])
        , ([LojbanSentence
"xu do cusku zo gleki"], [LojbanSentence
"Did you say \"gleki\"?", LojbanSentence
"Did you say \"happy\"?"])
        , ([LojbanSentence
"xu do cusku zo tavla"], [LojbanSentence
"Did you say \"tavla\"?", LojbanSentence
"Did you say \"talk\"?"])
        , ([LojbanSentence
"xu do cusku zo djuno"], [LojbanSentence
"Did you say \"djuno\"?", LojbanSentence
"Did you say \"know\"?"])
        , ([LojbanSentence
"xu do cusku zo pilno"], [LojbanSentence
"Did you say \"pilno\"?", LojbanSentence
"Did you say \"use\"?"])
        , ([LojbanSentence
"xu do cusku zo bangu"], [LojbanSentence
"Did you say \"bangu\"?", LojbanSentence
"Did you say \"language\"?"])
        -- ma cusku
        , ([LojbanSentence
"ma cusku zo do"], [LojbanSentence
"Who said \"do\"?", LojbanSentence
"Who said \"you\"?"])
        , ([LojbanSentence
"ma cusku zo prenu"], [LojbanSentence
"Who said \"prenu\"?", LojbanSentence
"Who said \"person\"?"])
        , ([LojbanSentence
"ma cusku zo pendo"], [LojbanSentence
"Who said \"pendo\"?", LojbanSentence
"Who said \"friend\"?"])
        , ([LojbanSentence
"ma cusku zo zdani"], [LojbanSentence
"Who said \"zdani\"?", LojbanSentence
"Who said \"house\"?"])
        , ([LojbanSentence
"ma cusku zo skami"], [LojbanSentence
"Who said \"skami\"?", LojbanSentence
"Who said \"computer\"?"])
        , ([LojbanSentence
"ma cusku zo gleki"], [LojbanSentence
"Who said \"gleki\"?", LojbanSentence
"Who said \"happy\"?"])
        , ([LojbanSentence
"ma cusku zo tavla"], [LojbanSentence
"Who said \"tavla\"?", LojbanSentence
"Who said \"talk\"?"])
        , ([LojbanSentence
"ma cusku zo djuno"], [LojbanSentence
"Who said \"djuno\"?", LojbanSentence
"Who said \"know\"?"])
        , ([LojbanSentence
"ma cusku zo pilno"], [LojbanSentence
"Who said \"pilno\"?", LojbanSentence
"Who said \"use\"?"])
        , ([LojbanSentence
"ma cusku zo bangu"], [LojbanSentence
"Who said \"bangu\"?", LojbanSentence
"Who said \"language\"?"])
        -- llo fanva cu cusku
        , ([LojbanSentence
"lo fanva cu cusku zo do"], [LojbanSentence
"The translator said \"do\".", LojbanSentence
"The translator said \"you\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo prenu"], [LojbanSentence
"The translator said \"prenu\".", LojbanSentence
"The translator said \"person\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo pendo"], [LojbanSentence
"The translator said \"pendo\".", LojbanSentence
"The translator said \"friend\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo zdani"], [LojbanSentence
"The translator said \"zdani\".", LojbanSentence
"The translator said \"house\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo skami"], [LojbanSentence
"The translator said \"skami\".", LojbanSentence
"The translator said \"computer\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo gleki"], [LojbanSentence
"The translator said \"gleki\".", LojbanSentence
"The translator said \"happy\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo tavla"], [LojbanSentence
"The translator said \"tavla\".", LojbanSentence
"The translator said \"talk\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo djuno"], [LojbanSentence
"The translator said \"djuno\".", LojbanSentence
"The translator said \"know\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo pilno"], [LojbanSentence
"The translator said \"pilno\".", LojbanSentence
"The translator said \"use\"."])
        , ([LojbanSentence
"lo fanva cu cusku zo bangu"], [LojbanSentence
"The translator said \"bangu\".", LojbanSentence
"The translator said \"language\"."])
        ]

translations14_lu :: TranslationGenerator
translations14_lu :: TranslationGenerator
translations14_lu = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
cusku] where
    cusku :: TranslationGenerator
cusku = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
mi, TranslationGenerator
lo_fanva] where
        mi :: TranslationGenerator
mi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- Propositions
            [ ([LojbanSentence
"mi cusku lu mi nelci do li'u"], [LojbanSentence
"I said \"mi nelci do\".", LojbanSentence
"I said \"I like you\"."])
            , ([LojbanSentence
"mi cusku lu mi dunda lo mlatu li'u"], [LojbanSentence
"I said \"mi dunda lo mlatu\".", LojbanSentence
"I said \"I donated the cat\"."])
            , ([LojbanSentence
"mi cusku lu do dunda lo mlatu li'u"], [LojbanSentence
"I said \"do dunda lo mlatu\".", LojbanSentence
"I said \"You donated the cat\"."])
            , ([LojbanSentence
"mi cusku lu mi se zdani li'u"], [LojbanSentence
"I said \"mi se zdani\".", LojbanSentence
"I said \"I have a house\"."])
            , ([LojbanSentence
"mi cusku lu do se zdani li'u"], [LojbanSentence
"I said \"do se zdani\".", LojbanSentence
"I said \"You have a house\"."])

            , ([LojbanSentence
"mi cusku lu ma cusku zo do li'u"], [LojbanSentence
"I said \"ma cusku zo do\"", LojbanSentence
"I said \"Who said 'you'?\"."])
            , ([LojbanSentence
"mi cusku lu ma cusku (zo zdani|lu lo zdani li'u) li'u"], [LojbanSentence
"I said \"ma cusku zo zdani\"", LojbanSentence
"I said \"Who said 'house'?\"."])
            , ([LojbanSentence
"mi cusku lu ma cusku (zo mlatu|lu lo mlatu li'u) li'u"], [LojbanSentence
"I said \"ma cusku zo mlatu\"", LojbanSentence
"I said \"Who said 'cat'?\"."])
            -- Questions
            , ([LojbanSentence
"xu do cusku lu mi nelci do li'u"], [LojbanSentence
"Did you say \"mi nelci do\"?", LojbanSentence
"Did you say \"I like you\"?"])
            , ([LojbanSentence
"xu do cusku lu mi dunda lo mlatu li'u"], [LojbanSentence
"Did you say \"mi dunda lo mlatu\"?", LojbanSentence
"Did you say \"I donated the cat\"?"])
            , ([LojbanSentence
"xu do cusku lu do dunda lo mlatu li'u"], [LojbanSentence
"Did you say \"do dunda lo mlatu\"?", LojbanSentence
"Did you say \"You donated the cat\"?"])
            , ([LojbanSentence
"xu do cusku lu mi se zdani li'u"], [LojbanSentence
"Did you say \"mi se zdani\"?", LojbanSentence
"Did you say \"I have a house\"?"])
            , ([LojbanSentence
"xu do cusku lu do se zdani li'u"], [LojbanSentence
"Did you say \"do se zdani\"?", LojbanSentence
"Did you say \"You have a house\"?"])

            , ([LojbanSentence
"ma cusku lu mi se zdani li'u"], [LojbanSentence
"Who said \"mi se zdani\"?", LojbanSentence
"Who said \"I have a house\"?"])
            ]
        lo_fanva :: TranslationGenerator
lo_fanva = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            -- Propositions
            [ ([LojbanSentence
"lo fanva cu cusku lu mi nelci do li'u"], [LojbanSentence
"The translator said \"mi nelci do\".", LojbanSentence
"The translator said \"I like you\"."])
            , ([LojbanSentence
"lo fanva cu cusku lu mi dunda lo mlatu li'u"], [LojbanSentence
"The translator said \"mi dunda lo mlatu\".", LojbanSentence
"The translator said \"I donated the cat\"."])
            , ([LojbanSentence
"lo fanva cu cusku lu do dunda lo mlatu li'u"], [LojbanSentence
"The translator said \"do dunda lo mlatu\".", LojbanSentence
"The translator said \"You donated the cat\"."])
            , ([LojbanSentence
"lo fanva cu cusku lu mi se zdani li'u"], [LojbanSentence
"The translator said \"mi se zdani\".", LojbanSentence
"The translator said \"I have a house\"."])
            , ([LojbanSentence
"lo fanva cu cusku lu do se zdani li'u"], [LojbanSentence
"The translator said \"do se zdani\".", LojbanSentence
"The translator said \"You have a house\"."])

            , ([LojbanSentence
"lo fanva cu cusku lu ma cusku zo do li'u"], [LojbanSentence
"The translator said \"ma cusku zo do\"", LojbanSentence
"The translator said \"Who said 'you'?\"."])
            , ([LojbanSentence
"lo fanva cu cusku lu ma cusku (zo zdani|lu lo zdani li'u) li'u"], [LojbanSentence
"The translator said \"ma cusku zo zdani\"", LojbanSentence
"The translator said \"Who said 'house'?\"."])
            , ([LojbanSentence
"lo fanva cu cusku lu ma cusku (zo mlatu|lu lo mlatu li'u) li'u"], [LojbanSentence
"The translator said \"ma cusku zo mlatu\"", LojbanSentence
"The translator said \"Who said 'cat'?\"."])
            -- Questions
            , ([LojbanSentence
"xu lo fanva cu cusku lu mi nelci do li'u"], [LojbanSentence
"Did the translator say \"mi nelci do\"?", LojbanSentence
"Did the translator say \"I like you\"?"])
            , ([LojbanSentence
"xu lo fanva cu cusku lu mi dunda lo mlatu li'u"], [LojbanSentence
"Did the translator say \"mi dunda lo mlatu\"?", LojbanSentence
"Did the translator say \"I donated the cat\"?"])
            , ([LojbanSentence
"xu lo fanva cu cusku lu do dunda lo mlatu li'u"], [LojbanSentence
"Did the translator say \"do dunda lo mlatu\"?", LojbanSentence
"Did the translator say \"You donated the cat\"?"])
            , ([LojbanSentence
"xu lo fanva cu cusku lu mi se zdani li'u"], [LojbanSentence
"Did the translator say \"mi se zdani\"?", LojbanSentence
"Did the translator say \"I have a house\"?"])
            , ([LojbanSentence
"xu lo fanva cu cusku lu do se zdani li'u"], [LojbanSentence
"Did the translator say \"do se zdani\"?", LojbanSentence
"Did the translator say \"You have a house\"?"])
            ]

-- * Lesson 15: Relative phrases
translations15_expressions :: TranslationGenerator
translations15_expressions :: TranslationGenerator
translations15_expressions = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
gerku, TranslationGenerator
mlatu, TranslationGenerator
pendo] where
    gerku :: TranslationGenerator
gerku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo mi gerku"], [LojbanSentence
"My dog."])
        , ([LojbanSentence
"lo gerku pe lo prenu"], [LojbanSentence
"The person's dog."])
        , ([LojbanSentence
"lo gerku pe lo pendo"], [LojbanSentence
"The friend's dog."])
        , ([LojbanSentence
"lo gerku pe lo nupre"], [LojbanSentence
"The promisor's dog."])
        , ([LojbanSentence
"lo gerku pe lo dunda"], [LojbanSentence
"The donor's dog."])
        --, (["lo gerku pe lo te dunda"], ["The recipient's dog."])
        , ([LojbanSentence
"lo gerku pe lo vecnu"], [LojbanSentence
"The seller's dog."])
        , ([LojbanSentence
"lo gerku pe lo te vecnu"], [LojbanSentence
"The buyer's dog."])
        ]
    mlatu :: TranslationGenerator
mlatu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo mi mlatu"], [LojbanSentence
"My cat."])
        , ([LojbanSentence
"lo mlatu pe lo prenu"], [LojbanSentence
"The person's cat."])
        , ([LojbanSentence
"lo mlatu pe lo pendo"], [LojbanSentence
"The friend's cat."])
        , ([LojbanSentence
"lo mlatu pe lo nupre"], [LojbanSentence
"The promisor's cat."])
        , ([LojbanSentence
"lo mlatu pe lo dunda"], [LojbanSentence
"The donor's cat."])
        --, (["lo mlatu pe lo te dunda"], ["The recipient's cat."])
        , ([LojbanSentence
"lo mlatu pe lo vecnu"], [LojbanSentence
"The seller's cat."])
        , ([LojbanSentence
"lo mlatu pe lo te vecnu"], [LojbanSentence
"The buyer's cat."])
        ]
    pendo :: TranslationGenerator
pendo = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo mi pendo"], [LojbanSentence
"My friend."])
        , ([LojbanSentence
"lo do pendo"], [LojbanSentence
"Your friend."])
        , ([LojbanSentence
"lo gerku pe lo mi pendo"], [LojbanSentence
"My friend's dog."])
        , ([LojbanSentence
"lo mlatu pe lo mi pendo"], [LojbanSentence
"My friend's cat."])
        , ([LojbanSentence
"lo pendo pe lo mi pendo"], [LojbanSentence
"My friend's friend."])
        , ([LojbanSentence
"lo gerku pe lo do pendo"], [LojbanSentence
"Your friend's dog."])
        , ([LojbanSentence
"lo mlatu pe lo do pendo"], [LojbanSentence
"Your friend's cat."])
        , ([LojbanSentence
"lo pendo pe lo do pendo"], [LojbanSentence
"Your friend's friend."])
        ]

translations15_sentences :: TranslationGenerator
translations15_sentences :: TranslationGenerator
translations15_sentences = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
gerku, TranslationGenerator
mlatu, TranslationGenerator
pendo] where
    gerku :: TranslationGenerator
gerku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi dunda lo mi gerku"], [LojbanSentence
"I donated my dog."])
        , ([LojbanSentence
"lo mi gerku cu gleki"], [LojbanSentence
"My dog is happy."])
        , ([LojbanSentence
"xu do dunda lo do gerku"], [LojbanSentence
"Did you donate your dog?"])
        , ([LojbanSentence
"xu lo do gerku cu gleki"], [LojbanSentence
"Is your dog happy?"])
        ]
    mlatu :: TranslationGenerator
mlatu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi dunda lo mi mlatu"], [LojbanSentence
"I donated my cat."])
        , ([LojbanSentence
"lo mi mlatu cu gleki"], [LojbanSentence
"My cat is happy."])
        , ([LojbanSentence
"xu do dunda lo do mlatu"], [LojbanSentence
"Did you donate your cat?"])
        , ([LojbanSentence
"xu lo do mlatu cu gleki"], [LojbanSentence
"Is your cat happy?"])
        ]
    pendo :: TranslationGenerator
pendo = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        -- mi
        [ ([LojbanSentence
"mi tavla lo mi pendo"], [LojbanSentence
"I talked to my friend."])
        , ([LojbanSentence
"mi nelci lo mi pendo"], [LojbanSentence
"I like my friend."])
        , ([LojbanSentence
"mi tavla lo do pendo"], [LojbanSentence
"I talked to your friend."])
        , ([LojbanSentence
"mi nelci lo do pendo"], [LojbanSentence
"I like your friend.", LojbanSentence
"I liked your friend."])
        , ([LojbanSentence
"mi dunda lo mi gerku lo do pendo"], [LojbanSentence
"I donated my dog to your friend."])
        , ([LojbanSentence
"mi dunda lo mi mlatu lo do pendo"], [LojbanSentence
"I donated my cat to your friend."])
        , ([LojbanSentence
"mi djuno lo du'u do tavla lo do pendo"], [LojbanSentence
"I know that you talked to your friend."])
        , ([LojbanSentence
"mi djuno lo du'u do tavla lo mi pendo"], [LojbanSentence
"I know that you talked to my friend."])
        -- xu do
        , ([LojbanSentence
"xu do tavla lo mi pendo"], [LojbanSentence
"Did you talk to my friend?"])
        , ([LojbanSentence
"xu do nelci lo mi pendo"], [LojbanSentence
"Do you like my friend?", LojbanSentence
"Did you like my friend?"])
        , ([LojbanSentence
"xu do tavla lo do pendo"], [LojbanSentence
"Did you talk to your friend?"])
        , ([LojbanSentence
"xu do nelci lo do pendo"], [LojbanSentence
"Do you like your friend?"])
        , ([LojbanSentence
"xu do dunda lo do gerku lo mi pendo"], [LojbanSentence
"Did you donate your dog to my friend?"])
        , ([LojbanSentence
"xu do dunda lo do mlatu lo mi pendo"], [LojbanSentence
"Did you donate your cat to my friend?"])
        , ([LojbanSentence
"xu do djuno lo du'u mi tavla lo do pendo"], [LojbanSentence
"Did you know that I talked to your friend?"])
        , ([LojbanSentence
"xu do djuno lo du'u mi tavla lo mi pendo"], [LojbanSentence
"Did you know that I talked to my friend?"])
        ]

-- * Lesson 16: Logical connectives 1
translations16_a :: TranslationGenerator
translations16_a :: TranslationGenerator
translations16_a = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
zdani, TranslationGenerator
tavla, TranslationGenerator
gleki] where
    zdani :: TranslationGenerator
zdani = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .a do se zdani"], [LojbanSentence
"I have a house, or you have a house (or both)."])
        , ([LojbanSentence
"mi .a lo mi pendo cu se zdani"], [LojbanSentence
"I have a house, or my friend has a house (or both)."])
        , ([LojbanSentence
"do .a lo do pendo cu se zdani"], [LojbanSentence
"You have a house, or your friend has a house (or both)."])
        ]
    tavla :: TranslationGenerator
tavla = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .a do tavla"], [LojbanSentence
"I will talk, or you will talk (or both)."])
        , ([LojbanSentence
"mi .a do tavla fi lo gerku"], [LojbanSentence
"I will talk about the dog, or you will talk about the dog (or both)."])
        , ([LojbanSentence
"mi .a do tavla fi lo mlatu"], [LojbanSentence
"I will talk about the cat, or you will talk about the cat (or both)."])
        , ([LojbanSentence
"mi .a do tavla lo mi pendo"], [LojbanSentence
"I will talk to my friend, or you will talk to my friend (or both)."])
        , ([LojbanSentence
"mi .a lo mi pendo cu tavla"], [LojbanSentence
"I will talk, or my friend will talk (or both)."])
        ]
    gleki :: TranslationGenerator
gleki = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .a do gleki"], [LojbanSentence
"I am happy, or you are happy."])
        , ([LojbanSentence
"mi .a lo mi pendo cu gleki"], [LojbanSentence
"I am happy, or my friend is happy."])
        , ([LojbanSentence
"mi .a lo do pendo cu gleki"], [LojbanSentence
"I am happy, or your friend is happy."])
        , ([LojbanSentence
"mi .a lo do pendo cu gleki"], [LojbanSentence
"I am happy, or your friend is happy."])
        ]

translations16_e :: TranslationGenerator
translations16_e :: TranslationGenerator
translations16_e = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
zdani, TranslationGenerator
tavla, TranslationGenerator
gleki] where
    zdani :: TranslationGenerator
zdani = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .e do se zdani"], [LojbanSentence
"I have a house, and you have a house."])
        , ([LojbanSentence
"mi .e lo mi pendo cu se zdani"], [LojbanSentence
"I have a house, and my friend has a house."])
        , ([LojbanSentence
"mi .e lo do pendo cu se zdani"], [LojbanSentence
"I have a house, and your friend has a house."])
        ]
    tavla :: TranslationGenerator
tavla = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .e do tavla"], [LojbanSentence
"I will talk, and you will talk."])
        , ([LojbanSentence
"mi .e do tavla fi lo gerku"], [LojbanSentence
"I will talk about the dog, and you will talk about the dog."])
        , ([LojbanSentence
"mi .e do tavla fi lo mlatu"], [LojbanSentence
"I will talk about the cat, and you will talk about the cat."])
        , ([LojbanSentence
"mi .e do tavla lo mi pendo"], [LojbanSentence
"I will talk to my friend, and you will talk to my friend."])
        , ([LojbanSentence
"mi .e lo mi pendo cu tavla"], [LojbanSentence
"I will talk, and my friend will talk."])
        ]
    gleki :: TranslationGenerator
gleki = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .e do gleki"], [LojbanSentence
"I am happy, and you are happy."])
        , ([LojbanSentence
"mi .e lo mi pendo cu gleki"], [LojbanSentence
"I am happy, and my friend is happy."])
        , ([LojbanSentence
"mi .e lo do pendo cu gleki"], [LojbanSentence
"I am happy, and your friend is happy."])
        , ([LojbanSentence
"do .e lo do pendo cu gleki"], [LojbanSentence
"You are happy, and your friend is happy."])
        ]

translations16_o :: TranslationGenerator
translations16_o :: TranslationGenerator
translations16_o = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
zdani, TranslationGenerator
tavla, TranslationGenerator
gleki] where
    zdani :: TranslationGenerator
zdani = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .o do se zdani"], [LojbanSentence
"I have a house, if and only if you have a house."])
        , ([LojbanSentence
"mi .o lo mi pendo cu se zdani"], [LojbanSentence
"I have a house, if and only if my friend has a house."])
        , ([LojbanSentence
"do .o lo do pendo cu se zdani"], [LojbanSentence
"You have a house, if and only if your friend has a house."])
        ]
    tavla :: TranslationGenerator
tavla = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .o do tavla"], [LojbanSentence
"I will talk, if and only if you talk."])
        , ([LojbanSentence
"mi .o do tavla fi lo gerku"], [LojbanSentence
"I will talk about the dog, if and only if you talk about the dog."])
        , ([LojbanSentence
"mi .o do tavla fi lo mlatu"], [LojbanSentence
"I will talk about the cat, if and only if you talk about the cat."])
        , ([LojbanSentence
"mi .o do tavla lo mi pendo"], [LojbanSentence
"I will talk to my friend, if and only if you talk to my friend."])
        , ([LojbanSentence
"mi .o lo mi pendo cu tavla"], [LojbanSentence
"I will talk, if and only if my friend talks."])
        ]
    gleki :: TranslationGenerator
gleki = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .o do gleki"], [LojbanSentence
"I am happy, if and only if you are happy."])
        , ([LojbanSentence
"mi .o lo mi pendo cu gleki"], [LojbanSentence
"I am happy, if and only if my friend is happy."])
        , ([LojbanSentence
"mi .o lo do pendo cu gleki"], [LojbanSentence
"I am happy, if and only if your friend is happy."])
        , ([LojbanSentence
"do .o lo do pendo cu gleki"], [LojbanSentence
"You are happy, if and only if your friend is happy."])
        ]

translations16_u :: TranslationGenerator
translations16_u :: TranslationGenerator
translations16_u = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
zdani] where
    zdani :: TranslationGenerator
zdani = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi .u do se zdani"], [LojbanSentence
"I have a house, regardless of whether you have a house."])
        , ([LojbanSentence
"mi .u lo mi pendo cu se zdani"], [LojbanSentence
"I have a house, regardless of whether my friend has a house."])
        , ([LojbanSentence
"do .u lo do pendo cu se zdani"], [LojbanSentence
"You have a house, regardless of whether your friend has a house."])
        ]
    tavla :: StdGen -> (([String], [String]), StdGen)
tavla = [([String], [String])] -> StdGen -> (([String], [String]), StdGen)
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([String
"mi .u do tavla"], [String
"I will talk, regardless of whether you talk."])
        , ([String
"mi .u do tavla fi lo gerku"], [String
"I will talk about the dog, regardless of whether you talk about the dog."])
        , ([String
"mi .u do tavla fi lo mlatu"], [String
"I will talk about the cat, regardless of whether you talk about the cat."])
        , ([String
"mi .u do tavla lo mi pendo"], [String
"I will talk to my friend, regardless of whether you talk to my friend."])
        , ([String
"mi .u lo mi pendo cu tavla"], [String
"I will talk, regardless of whether my friend talks."])
        ]
    gleki :: StdGen -> (([String], [String]), StdGen)
gleki = [([String], [String])] -> StdGen -> (([String], [String]), StdGen)
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([String
"mi .u do gleki"], [String
"I am happy, regardless of whether you are happy."])
        , ([String
"mi .u lo mi pendo cu gleki"], [String
"I am happy, regardless of whether my friend is happy."])
        , ([String
"mi .u lo do pendo cu gleki"], [String
"I am happy, regardless of whether your friend is happy."])
        , ([String
"do .u lo do pendo cu gleki"], [String
"You are happy, regardless of whether your friend is happy."])
        ]

-- * Lesson 17: Negation 1
translations17_na :: TranslationGenerator
translations17_na :: TranslationGenerator
translations17_na = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
nelci, TranslationGenerator
dunda, TranslationGenerator
vecnu, TranslationGenerator
tavla, TranslationGenerator
pendo, TranslationGenerator
melbi] where
    nelci :: TranslationGenerator
nelci = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi na nelci do"], [LojbanSentence
"Not true: I like you."])
        , ([LojbanSentence
"do na nelci mi"], [LojbanSentence
"Not true: you like me."])
        , ([LojbanSentence
"mi na nelci lo mlatu"], [LojbanSentence
"Not true: I like the cat."])
        , ([LojbanSentence
"mi na nelci lo gerku"], [LojbanSentence
"Not true: I like the dog."])
        , ([LojbanSentence
"mi na nelci lo mi mlatu"], [LojbanSentence
"Not true: I like my cat."])
        , ([LojbanSentence
"mi na nelci lo mi gerku"], [LojbanSentence
"Not true: I like my dog."])
        , ([LojbanSentence
"mi na nelci (lo mi zdani|lo zdani be mi)"], [LojbanSentence
"Not true: I like my house."])
        , ([LojbanSentence
"mi na nelci lo se dunda be do"], [LojbanSentence
"Not true: I like the gift that you gave."])
        ]
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi na dunda lo mlatu"], [LojbanSentence
"Not true: I will donate the cat."])
        , ([LojbanSentence
"mi na dunda lo gerku"], [LojbanSentence
"Not true: I will donate the dog."])
        , ([LojbanSentence
"mi na dunda lo zdani"], [LojbanSentence
"Not true: I will donate the house."])
        , ([LojbanSentence
"na ku gau do mi dunda lo gerku"], [LojbanSentence
"Not true: you made me donate the dog."])
        , ([LojbanSentence
"na ku gau do mi dunda lo mlatu"], [LojbanSentence
"Not true: you made me donate the cat."])
        , ([LojbanSentence
"na ku gau do mi dunda lo zdani"], [LojbanSentence
"Not true: you made me donate the house."])
        ]
    vecnu :: TranslationGenerator
vecnu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo pu vecnu na gleki"], [LojbanSentence
"Not true: the former seller is happy."])
        , ([LojbanSentence
"lo ba te vecnu na gleki"], [LojbanSentence
"Not true: the future buyer is happy."])
        ]
    tavla :: TranslationGenerator
tavla = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"na ku gau do mi tavla do"], [LojbanSentence
"Not true: you made me talk to you."])
        , ([LojbanSentence
"na ku gau do mi tavla fi lo gerku"], [LojbanSentence
"Not true: you made me talk about the dog."])
        , ([LojbanSentence
"na ku gau do mi tavla fi lo mlatu"], [LojbanSentence
"Not true: you made me talk about the cat."])
        ]
    pendo :: TranslationGenerator
pendo = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do na gleki"], [LojbanSentence
"Not true: you are happy."])
        , ([LojbanSentence
"do na pendo mi"], [LojbanSentence
"Not true: you are my friend."])
        ]
    melbi :: TranslationGenerator
melbi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do na melbi"], [LojbanSentence
"Not true: you are beautiful."])
        , ([LojbanSentence
"mi na melbi"], [LojbanSentence
"Not true: I am beautiful."])
        , ([LojbanSentence
"lo mlatu na melbi"], [LojbanSentence
"Not true: cats are beautiful.", LojbanSentence
"Not true: the cat is beautiful"])
        , ([LojbanSentence
"lo bangu na melbi"], [LojbanSentence
"Not true: languages are beautiful.", LojbanSentence
"Not true: the language is beautiful"])
        ]

translations17_na'e :: TranslationGenerator
translations17_na'e :: TranslationGenerator
translations17_na'e = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
nelci, TranslationGenerator
dunda, TranslationGenerator
melbi] where
    nelci :: TranslationGenerator
nelci = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi na'e nelci do"], [LojbanSentence
"I other-than-like you."])
        , ([LojbanSentence
"do na'e nelci mi"], [LojbanSentence
"You other-than-like me."])
        , ([LojbanSentence
"mi na'e nelci lo mlatu"], [LojbanSentence
"I other-than-like the cat.", LojbanSentence
"I other-than-like cats."])
        , ([LojbanSentence
"mi na'e nelci lo gerku"], [LojbanSentence
"I other-than-like the dog.", LojbanSentence
"I other-than-like dogs."])
        , ([LojbanSentence
"mi na'e nelci lo mi mlatu"], [LojbanSentence
"I other-than-like my cat."])
        , ([LojbanSentence
"mi na'e nelci lo mi gerku"], [LojbanSentence
"I other-than-like my dog."])
        , ([LojbanSentence
"mi na'e nelci (lo mi zdani|lo zdani be mi)"], [LojbanSentence
"I other-than-like my house."])
        , ([LojbanSentence
"mi na'e nelci lo se dunda be do"], [LojbanSentence
"I other-than-like the gift that you gave."])
        ]
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi na'e dunda lo skami"], [LojbanSentence
"I other-than-donated the computer."])
        , ([LojbanSentence
"xu do na'e dunda lo skami"], [LojbanSentence
"Did you other-than-donate the computer?"])
        , ([LojbanSentence
"lo na'e (se|) dunda mlatu cu melbi"], [LojbanSentence
"The other-than-donated cat is beautiful."])
        ]
    melbi :: TranslationGenerator
melbi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do na'e melbi"], [LojbanSentence
"You are other-than-beautiful."])
        , ([LojbanSentence
"mi na'e melbi"], [LojbanSentence
"I am other-than-beautiful."])
        , ([LojbanSentence
"lo mlatu cu na'e melbi"], [LojbanSentence
"Cats are other-than-beautiful.", LojbanSentence
"The cat is other-than-beautiful."])
        , ([LojbanSentence
"lo bangu cu na'e melbi"], [LojbanSentence
"Languages are other-than-beautiful.", LojbanSentence
"The language is other-than-beautiful."])
        ]

translations17_no'e :: TranslationGenerator
translations17_no'e :: TranslationGenerator
translations17_no'e = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
nelci] where
    nelci :: TranslationGenerator
nelci = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi no'e nelci do"], [LojbanSentence
"I don't really like you."])
        , ([LojbanSentence
"do no'e nelci mi"], [LojbanSentence
"You don't really like me."])
        , ([LojbanSentence
"mi no'e nelci lo mlatu"], [LojbanSentence
"I don't really like the cat.", LojbanSentence
"I don't really like cats."])
        , ([LojbanSentence
"mi no'e nelci lo gerku"], [LojbanSentence
"I don't really like the dog.", LojbanSentence
"I don't really like dogs."])
        , ([LojbanSentence
"mi no'e nelci lo mi mlatu"], [LojbanSentence
"I don't really like my cat."])
        , ([LojbanSentence
"mi no'e nelci lo mi gerku"], [LojbanSentence
"I don't really like my dog."])
        , ([LojbanSentence
"mi no'e nelci (lo mi zdani|lo zdani be mi)"], [LojbanSentence
"I don't really like my house."])
        , ([LojbanSentence
"mi no'e nelci lo se dunda be do"], [LojbanSentence
"I don't really like the gift that you gave."])
        ]
    melbi :: StdGen -> (([String], [String]), StdGen)
melbi = [([String], [String])] -> StdGen -> (([String], [String]), StdGen)
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([String
"do no'e melbi"], [String
"You are not really beautiful."])
        , ([String
"mi no'e melbi"], [String
"I am not really beautiful."])
        , ([String
"lo mlatu cu no'e melbi"], [String
"Cats are not really beautiful.", String
"The cat is not really beautiful."])
        , ([String
"lo bangu cu no'e melbi"], [String
"Languages are not really beautiful.", String
"The language is not really beautiful."])
        ]

translations17_to'e :: TranslationGenerator
translations17_to'e :: TranslationGenerator
translations17_to'e = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
nelci] where
    nelci :: TranslationGenerator
nelci = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi to'e nelci do"], [LojbanSentence
"I dislike you."])
        , ([LojbanSentence
"do to'e nelci mi"], [LojbanSentence
"You dislike me."])
        , ([LojbanSentence
"mi to'e nelci lo mlatu"], [LojbanSentence
"I dislike the cat.", LojbanSentence
"I dislike cats."])
        , ([LojbanSentence
"mi to'e nelci lo gerku"], [LojbanSentence
"I dislike the dog.", LojbanSentence
"I dislike dogs."])
        , ([LojbanSentence
"mi to'e nelci lo mi mlatu"], [LojbanSentence
"I dislike my cat."])
        , ([LojbanSentence
"mi to'e nelci lo mi gerku"], [LojbanSentence
"I dislike my dog."])
        , ([LojbanSentence
"mi to'e nelci (lo mi zdani|lo zdani be mi)"], [LojbanSentence
"I dislike my house."])
        , ([LojbanSentence
"mi to'e nelci lo se dunda be do"], [LojbanSentence
"I dislike the gift that you gave."])
        ]
    melbi :: StdGen -> (([String], [String]), StdGen)
melbi = [([String], [String])] -> StdGen -> (([String], [String]), StdGen)
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([String
"do to'e melbi"], [String
"You are ugly."])
        , ([String
"mi to'e melbi"], [String
"I am ugly."])
        , ([String
"lo mlatu cu to'e melbi"], [String
"Cats are ugly.", String
"The cat is ugly."])
        , ([String
"lo bangu cu to'e melbi"], [String
"Languages are ugly.", String
"The language is ugly."])
        ]

translations17 :: TranslationGenerator
translations17 :: TranslationGenerator
translations17 = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
translations17_na, TranslationGenerator
translations17_na'e, TranslationGenerator
translations17_no'e, TranslationGenerator
translations17_to'e]

-- * Lesson 18: Misc 1
translations18 :: TranslationGenerator
translations18 :: TranslationGenerator
translations18 = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
djica, TranslationGenerator
cusku, TranslationGenerator
lerci, TranslationGenerator
mukti] where
    djica :: TranslationGenerator
djica = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi jai se djica", LojbanSentence
"tu'a mi se djica"], [LojbanSentence
"I am desired."])
        , ([LojbanSentence
"do jai se djica", LojbanSentence
"tu'a do se djica"], [LojbanSentence
"You are desired."])
        , ([LojbanSentence
"xu do jai se djica", LojbanSentence
"xu tu'a do se djica"], [LojbanSentence
"Are you desired?"])
        , ([LojbanSentence
"mi djica tu'a do", LojbanSentence
"do jai se djica mi"], [LojbanSentence
"I desire [something about] you.", LojbanSentence
"[Something about] you is desired by me."])
        , ([LojbanSentence
"xu do djica tu'a mi", LojbanSentence
"xu mi jai se djica do"], [LojbanSentence
"Do you desire [something about] me?", LojbanSentence
"Is [something about] me desired by you?"])
        , ([LojbanSentence
"do djica tu'a ma (poi|noi) prenu", LojbanSentence
"ma (poi|noi) prenu ku'o jai se djica do"], [LojbanSentence
"What person do you desire [something about]?"])
        , ([LojbanSentence
"mi djica tu'a lo plise", LojbanSentence
"lo plise cu jai se djica mi"], [LojbanSentence
"I want [something about] an apple.", LojbanSentence
"[Something about] an apple is desired by me."])
        , ([LojbanSentence
"xu do djica tu'a lo plise", LojbanSentence
"xu lo plise cu jai se djica"], [LojbanSentence
"Do you want [something about] an apple?", LojbanSentence
"Is [something about] an apple wanted by you?"])
        ]
    lerci :: TranslationGenerator
lerci = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi jai lerci", LojbanSentence
"tu'a mi lerci"], [LojbanSentence
"I am late."])
        , ([LojbanSentence
"do jai lerci", LojbanSentence
"tu'a do lerci"], [LojbanSentence
"You are late."])
        , ([LojbanSentence
"xu do jai lerci", LojbanSentence
"xu tu'a do lerci"], [LojbanSentence
"Are you late?"])
        , ([LojbanSentence
"mi tavla do noi jai lerci"], [LojbanSentence
"I am talking to you, who are late."])
        , ([LojbanSentence
"ma (poi|noi) prenu cu jai lerci"], [LojbanSentence
"Which person is late?"])
        ]
    cusku :: TranslationGenerator
cusku = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do cusku tu'a lo plise"], [LojbanSentence
"You said [something about] apples."])
        , ([LojbanSentence
"mi cusku tu'a lo mlatu"], [LojbanSentence
"I said [something about] cats."])
        , ([LojbanSentence
"ma cusku tu'a lo skami"], [LojbanSentence
"Who said [something about] computers?"])
        ]
    mukti :: TranslationGenerator
mukti = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"tu'a do mukti lo nu ctuca kei mi", LojbanSentence
"do jai mukti lo nu ctuca kei mi", LojbanSentence
"tu'a do mukti lo nu mi ctuca", LojbanSentence
"do jai mukti lo nu mi ctuca"], [LojbanSentence
"[Something about] you motivates me to teach."])
        , ([LojbanSentence
"tu'a do mukti fi mi", LojbanSentence
"do jai mukti fi mi"], [LojbanSentence
"[Something about] you motivates me."])
        , ([LojbanSentence
"tu'a mi mukti fi do", LojbanSentence
"mi jai mukti fi do"], [LojbanSentence
"[Something about] me motivates you."])
        ]

-- * Lesson 23: Tenses 2
translations23 :: TranslationGenerator
translations23 :: TranslationGenerator
translations23 = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
pu'o, TranslationGenerator
ca'o, TranslationGenerator
ba'o, TranslationGenerator
co'a, TranslationGenerator
co'u] where
    pu'o :: TranslationGenerator
pu'o = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do pu'o citka lo plise"], [LojbanSentence
"You are about to eat an apple."])
        , ([LojbanSentence
"do pu'o pendo mi"], [LojbanSentence
"You are about to be my friend."])
        , ([LojbanSentence
"mi pu'o tavla lo vecnu"], [LojbanSentence
"I am about to talk to the seller."])
        , ([LojbanSentence
"mi pu'o tavla lo te vecnu"], [LojbanSentence
"I am about to talk to the buyer."])
        , ([LojbanSentence
"lo zdani pu'o pelxu"], [LojbanSentence
"The house is about to be yellow."])
        , ([LojbanSentence
"mi pu'o fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"I am about to translate to Lojban."])
        , ([LojbanSentence
"mi pu'o fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"I am about to translate from Lojban."])
        , ([LojbanSentence
"mi pu'o dunda lo mlatu"], [LojbanSentence
"I am about to donate the cat."])
        , ([LojbanSentence
"mi pu'o dunda lo gerku"], [LojbanSentence
"I am about to donate the dog."])
        , ([LojbanSentence
"mi pu'o vecnu lo zdani"], [LojbanSentence
"I am about to sell the house."])
        , ([LojbanSentence
"do pu'o gleki"], [LojbanSentence
"You are about to be happy."])
        , ([LojbanSentence
"lo prenu pu'o gleki"], [LojbanSentence
"The person is about to be happy."])
        , ([LojbanSentence
"lo vecnu pu'o gleki"], [LojbanSentence
"The seller is about to be happy."])
        , ([LojbanSentence
"lo te vecnu pu'o gleki"], [LojbanSentence
"The buyer is about to be happy."])
        , ([LojbanSentence
"xu do pu'o ciska"], [LojbanSentence
"Are you about to write?"])
        , ([LojbanSentence
"xu do pu'o tavla"], [LojbanSentence
"Are you about to talk?"])
        , ([LojbanSentence
"xu do pu'o fanva"], [LojbanSentence
"Are you about to translate?"])
        ]
    ca'o :: TranslationGenerator
ca'o = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do ca'o citka lo plise"], [LojbanSentence
"You are currently eating an apple."])
        , ([LojbanSentence
"do ca'o pendo mi"], [LojbanSentence
"You are currently my friend."])
        , ([LojbanSentence
"mi ca'o tavla lo vecnu"], [LojbanSentence
"I am currently talking to the seller."])
        , ([LojbanSentence
"mi ca'o tavla lo te vecnu"], [LojbanSentence
"I am currently talking to the buyer."])
        , ([LojbanSentence
"lo zdani ca'o pelxu"], [LojbanSentence
"The house is currently yellow."])
        , ([LojbanSentence
"mi ca'o fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"I am currently translating to Lojban."])
        , ([LojbanSentence
"mi ca'o fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"I am currently translating from Lojban."])
        , ([LojbanSentence
"mi ca'o dunda lo mlatu"], [LojbanSentence
"I am currently donating the cat."])
        , ([LojbanSentence
"mi ca'o dunda lo gerku"], [LojbanSentence
"I am currently donating the dog."])
        , ([LojbanSentence
"mi ca'o vecnu lo zdani"], [LojbanSentence
"I am currently selling the house."])
        , ([LojbanSentence
"do ca'o gleki"], [LojbanSentence
"You are currently happy."])
        , ([LojbanSentence
"lo prenu ca'o gleki"], [LojbanSentence
"The person is currently happy."])
        , ([LojbanSentence
"lo vecnu ca'o gleki"], [LojbanSentence
"The seller is currently happy."])
        , ([LojbanSentence
"lo te vecnu ca'o gleki"], [LojbanSentence
"The buyer is currently happy."])
        , ([LojbanSentence
"xu do ca'o ciska"], [LojbanSentence
"Are you currently writing?"])
        , ([LojbanSentence
"xu do ca'o tavla"], [LojbanSentence
"Are you currently talking?"])
        , ([LojbanSentence
"xu do ca'o fanva"], [LojbanSentence
"Are you currently translating?"])
        ]
    ba'o :: TranslationGenerator
ba'o = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do ba'o citka lo plise"], [LojbanSentence
"You have finished eating the apple."])
        , ([LojbanSentence
"do ba'o pendo mi"], [LojbanSentence
"You have ceased to be my friend."])
        , ([LojbanSentence
"mi ba'o tavla lo vecnu"], [LojbanSentence
"I have finished talking to the seller."])
        , ([LojbanSentence
"mi ba'o tavla lo te vecnu"], [LojbanSentence
"I have finished talking to the buyer."])
        , ([LojbanSentence
"lo zdani ba'o pelxu"], [LojbanSentence
"The house has ceased to be yellow."])
        , ([LojbanSentence
"mi ba'o fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"I have finished translating to Lojban."])
        , ([LojbanSentence
"mi ba'o fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"I have finished translating from Lojban."])
        , ([LojbanSentence
"mi ba'o dunda lo mlatu"], [LojbanSentence
"I have finished donating the cat."])
        , ([LojbanSentence
"mi ba'o dunda lo gerku"], [LojbanSentence
"I have finished donating the dog."])
        , ([LojbanSentence
"mi ba'o vecnu lo zdani"], [LojbanSentence
"I have finished selling the house."])
        , ([LojbanSentence
"do ba'o gleki"], [LojbanSentence
"You have ceased to be happy."])
        , ([LojbanSentence
"lo prenu ba'o gleki"], [LojbanSentence
"The person has ceased to be happy."])
        , ([LojbanSentence
"lo vecnu ba'o gleki"], [LojbanSentence
"The seller has ceased to be happy."])
        , ([LojbanSentence
"lo te vecnu ba'o gleki"], [LojbanSentence
"The buyer has ceased to be happy."])
        , ([LojbanSentence
"xu do ba'o ciska"], [LojbanSentence
"Have you finished writing?"])
        , ([LojbanSentence
"xu do ba'o tavla"], [LojbanSentence
"Have you finished talking?"])
        , ([LojbanSentence
"xu do ba'o fanva"], [LojbanSentence
"Have you finished translating?"])
        ]
    co'a :: TranslationGenerator
co'a = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do co'a citka lo plise"], [LojbanSentence
"You just started eating an apple."])
        , ([LojbanSentence
"do co'a pendo mi"], [LojbanSentence
"You just became my friend."])
        , ([LojbanSentence
"mi co'a tavla lo vecnu"], [LojbanSentence
"I just started talking to the seller."])
        , ([LojbanSentence
"mi co'a tavla lo te vecnu"], [LojbanSentence
"I just started talking to the buyer."])
        , ([LojbanSentence
"lo zdani co'a pelxu"], [LojbanSentence
"The house just became yellow."])
        , ([LojbanSentence
"mi co'a fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"I just started translating to Lojban."])
        , ([LojbanSentence
"mi co'a fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"I just started translating from Lojban."])
        , ([LojbanSentence
"mi co'a dunda lo mlatu"], [LojbanSentence
"I just started donating the cat."])
        , ([LojbanSentence
"mi co'a dunda lo gerku"], [LojbanSentence
"I just started donating the dog."])
        , ([LojbanSentence
"mi co'a vecnu lo zdani"], [LojbanSentence
"I just started selling the house."])
        , ([LojbanSentence
"do co'a gleki"], [LojbanSentence
"You just became happy."])
        , ([LojbanSentence
"lo prenu co'a gleki"], [LojbanSentence
"The person just became happy."])
        , ([LojbanSentence
"lo vecnu co'a gleki"], [LojbanSentence
"The seller just became happy."])
        , ([LojbanSentence
"lo te vecnu co'a gleki"], [LojbanSentence
"The buyer just became happy."])
        , ([LojbanSentence
"xu do co'a ciska"], [LojbanSentence
"Did you just start writing?"])
        , ([LojbanSentence
"xu do co'a tavla"], [LojbanSentence
"Did you just start talking?"])
        , ([LojbanSentence
"xu do co'a fanva"], [LojbanSentence
"Did you just start translating?"])
        ]
    co'u :: TranslationGenerator
co'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"do co'u citka lo plise"], [LojbanSentence
"You just finished eating an apple."])
        , ([LojbanSentence
"do co'u pendo mi"], [LojbanSentence
"You just ceased being my friend."])
        , ([LojbanSentence
"mi co'u tavla lo vecnu"], [LojbanSentence
"I just finished talking to the seller."])
        , ([LojbanSentence
"mi co'u tavla lo te vecnu"], [LojbanSentence
"I just finished talking to the buyer."])
        , ([LojbanSentence
"lo zdani co'u pelxu"], [LojbanSentence
"The house just ceased to be yellow."])
        , ([LojbanSentence
"mi co'u fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"I just finished translating to Lojban."])
        , ([LojbanSentence
"mi co'u fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"I just finished translating from Lojban."])
        , ([LojbanSentence
"mi co'u dunda lo mlatu"], [LojbanSentence
"I just finished donating the cat."])
        , ([LojbanSentence
"mi co'u dunda lo gerku"], [LojbanSentence
"I just finished donating the dog."])
        , ([LojbanSentence
"mi co'u vecnu lo zdani"], [LojbanSentence
"I just finished selling the house."])
        , ([LojbanSentence
"do co'u gleki"], [LojbanSentence
"You just ceased to be happy."])
        , ([LojbanSentence
"lo prenu co'u gleki"], [LojbanSentence
"The person just ceased to be happy."])
        , ([LojbanSentence
"lo vecnu co'u gleki"], [LojbanSentence
"The seller just ceased to be happy."])
        , ([LojbanSentence
"lo te vecnu co'u gleki"], [LojbanSentence
"The buyer just ceased to be happy."])
        , ([LojbanSentence
"xu do co'u ciska"], [LojbanSentence
"Did you just finish writing?"])
        , ([LojbanSentence
"xu do co'u tavla"], [LojbanSentence
"Did you just finish talking?"])
        , ([LojbanSentence
"xu do co'u fanva"], [LojbanSentence
"Did you just finish translating?"])
        ]

-- * Lesson 26: Quantifying sumti 1
translations26 :: TranslationGenerator
translations26 :: TranslationGenerator
translations26 = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
2, TranslationGenerator
tavla), (Int
1, TranslationGenerator
vecnu), (Int
1, TranslationGenerator
dunda), (Int
1, TranslationGenerator
citka), (Int
1, TranslationGenerator
ctuca)] where
    tavla :: TranslationGenerator
tavla = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo re pendo cu tavla lo ci dunda"], [LojbanSentence
"The two friends are talking to the three donors."])
        , ([LojbanSentence
"lo re pendo cu tavla lo ci vecnu"], [LojbanSentence
"The two friends are talking to the three sellers."])
        , ([LojbanSentence
"lo re pendo cu tavla lo ci te vecnu"], [LojbanSentence
"The two friends are talking to the three buyers."])
        , ([LojbanSentence
"lo re dunda cu tavla lo ci pendo"], [LojbanSentence
"The two donors are talking to the three friends."])
        , ([LojbanSentence
"lo re dunda cu tavla lo ci vecnu"], [LojbanSentence
"The two donors are talking to the three sellers."])
        , ([LojbanSentence
"lo re dunda cu tavla lo ci te vecnu"], [LojbanSentence
"The two donors are talking to the three buyers."])
        , ([LojbanSentence
"lo re vecnu cu tavla lo ci pendo"], [LojbanSentence
"The two sellers are talking to the three friends."])
        , ([LojbanSentence
"lo re vecnu cu tavla lo ci te vecnu"], [LojbanSentence
"The two sellers are talking to the three buyers."])
        , ([LojbanSentence
"lo pano prenu cu tavla"], [LojbanSentence
"Ten persons are talking."])
        , ([LojbanSentence
"lo pano pendo cu tavla"], [LojbanSentence
"Ten friends are talking."])
        , ([LojbanSentence
"lo pano dunda cu tavla"], [LojbanSentence
"Ten donors are talking."])
        , ([LojbanSentence
"lo pano vecnu cu tavla"], [LojbanSentence
"Ten sellers are talking."])
        , ([LojbanSentence
"lo pano ctuca cu tavla"], [LojbanSentence
"Ten instructors are talking."])
        , ([LojbanSentence
"lo re prenu cu kakne lo nu tavla", LojbanSentence
"lo re prenu ka'e tavla"], [LojbanSentence
"Two persons are capable of talking."])
        , ([LojbanSentence
"lo re pendo cu kakne lo nu tavla", LojbanSentence
"lo re pendo ka'e tavla"], [LojbanSentence
"Two friends are capable of talking."])
        ]
    vecnu :: TranslationGenerator
vecnu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo re pendo cu vecnu lo ci plise"], [LojbanSentence
"The two friends sold three apples."])
        , ([LojbanSentence
"lo re pendo cu vecnu lo ci skami"], [LojbanSentence
"The two friends sold the three computers."])
        , ([LojbanSentence
"lo mu pendo cu vecnu lo plise"], [LojbanSentence
"Five friends are selling apples."])
        , ([LojbanSentence
"lo mu pendo cu vecnu lo skami"], [LojbanSentence
"Five friends are selling the computer."])
        , ([LojbanSentence
"lo re prenu cu vecnu lo ci plise"], [LojbanSentence
"The two persons sold three apples."])
        , ([LojbanSentence
"lo re prenu cu vecnu lo ci skami"], [LojbanSentence
"The two persons sold the three computers."])
        , ([LojbanSentence
"lo mu prenu cu vecnu lo plise"], [LojbanSentence
"Five persons are selling apples."])
        , ([LojbanSentence
"lo mu prenu cu vecnu lo skami"], [LojbanSentence
"Five persons are selling computers."])
        ]
    dunda :: TranslationGenerator
dunda = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo re pendo cu dunda lo ci plise"], [LojbanSentence
"The two friends donated three apples."])
        , ([LojbanSentence
"lo re pendo cu dunda lo ci skami"], [LojbanSentence
"The two friends donated the three computers."])
        , ([LojbanSentence
"lo mu pendo cu dunda lo plise"], [LojbanSentence
"Five friends are donating apples."])
        , ([LojbanSentence
"lo mu pendo cu dunda lo skami"], [LojbanSentence
"Five friends donated the computer."])
        , ([LojbanSentence
"lo re prenu cu dunda lo ci plise"], [LojbanSentence
"The two persons donated three apples."])
        , ([LojbanSentence
"lo re prenu cu dunda lo ci skami"], [LojbanSentence
"The two persons donated the three computers."])
        , ([LojbanSentence
"lo mu prenu cu dunda lo plise"], [LojbanSentence
"Five persons are donating apples."])
        , ([LojbanSentence
"lo mu prenu cu dunda lo skami"], [LojbanSentence
"Five persons donated computers."])
        ]
    citka :: TranslationGenerator
citka = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo re prenu cu citka lo ci plise"], [LojbanSentence
"The two persons ate three apples."])
        , ([LojbanSentence
"lo re gerku cu citka lo ci plise"], [LojbanSentence
"The two dogs ate three apples."])
        , ([LojbanSentence
"lo re mlatu cu citka lo ci plise"], [LojbanSentence
"The two cats ate three apples."])
        , ([LojbanSentence
"lo mu gerku cu citka lo plise"], [LojbanSentence
"Five dogs are eating apples."])
        , ([LojbanSentence
"lo mu mlatu cu citka lo plise"], [LojbanSentence
"Five cats are eating apples."])
        ]
    ctuca :: TranslationGenerator
ctuca = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"mi ctuca lo mu prenu"], [LojbanSentence
"I am teaching five persons."])
        , ([LojbanSentence
"mi ctuca lo mu gerku"], [LojbanSentence
"I am teaching five dogs."])
        , ([LojbanSentence
"lo mu pendo cu ctuca"], [LojbanSentence
"The five friends are teaching."])
        , ([LojbanSentence
"lo re prenu cu kakne lo nu ctuca", LojbanSentence
"lo re prenu ka'e ctuca"], [LojbanSentence
"Two persons are capable of teaching."])
        , ([LojbanSentence
"lo re pendo cu kakne lo nu ctuca", LojbanSentence
"lo re pendo ka'e ctuca"], [LojbanSentence
"Two friends are capable of teaching."])
        ]

-- * Lesson 27: Tenses 3
translations27_sentences :: TranslationGenerator
translations27_sentences :: TranslationGenerator
translations27_sentences = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
1, TranslationGenerator
inside_sumti), (Int
3, TranslationGenerator
outside_sumti)] where
    inside_sumti :: TranslationGenerator
inside_sumti = [TranslationGenerator] -> TranslationGenerator
forall a. [StdGen -> a] -> StdGen -> a
combineGeneratorsUniformly [TranslationGenerator
vi, TranslationGenerator
va, TranslationGenerator
vu, TranslationGenerator
zu'a, TranslationGenerator
ri'u, TranslationGenerator
ca'u, TranslationGenerator
bu'u] where
        vi :: TranslationGenerator
vi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo vi gerku cu gleki"], [LojbanSentence
"The nearby dog is happy."])
            , ([LojbanSentence
"lo vi mlatu cu melbi"], [LojbanSentence
"The nearby cat is beautiful."])
            , ([LojbanSentence
"mi tavla lo vi prenu"], [LojbanSentence
"I am talking to the nearby person."])
            , ([LojbanSentence
"mi ctuca lo vi prenu"], [LojbanSentence
"I am teaching the nearby person."])
            , ([LojbanSentence
"lo vi prenu cu tavla"], [LojbanSentence
"The nearby person is talking."])
            , ([LojbanSentence
"lo vi prenu cu ciska"], [LojbanSentence
"The nearby person is writing."])
            , ([LojbanSentence
"lo vi prenu cu gleki"], [LojbanSentence
"The nearby person is happy."])
            , ([LojbanSentence
"lo vi prenu cu jai lerci"], [LojbanSentence
"The nearby person is late."])
            , ([LojbanSentence
"lo vi prenu cu fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"The nearby person is translating to Lojban."])
            , ([LojbanSentence
"lo vi prenu cu fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"The nearby person is translating from Lojban."])
            , ([LojbanSentence
"lo vi prenu cu dunda lo plise"], [LojbanSentence
"The nearby person is donating an apple."])
            , ([LojbanSentence
"lo vi pendo cu dunda lo plise"], [LojbanSentence
"The nearby friend is donating an apple."])
            , ([LojbanSentence
"lo vi prenu cu vecnu lo skami"], [LojbanSentence
"The nearby person is selling a computer."])
            , ([LojbanSentence
"lo vi pendo cu vecnu lo skami"], [LojbanSentence
"The nearby friend is selling a computer."])
            , ([LojbanSentence
"lo vi prenu cu citka lo plise"], [LojbanSentence
"The nearby person is eating an apple."])
            , ([LojbanSentence
"lo vi pendo cu citka lo plise"], [LojbanSentence
"The nearby friend is eating an apple."])
            , ([LojbanSentence
"mi ctuca lo vi prenu"], [LojbanSentence
"I am teaching the nearby persons."])
            , ([LojbanSentence
"mi ctuca lo vi gerku"], [LojbanSentence
"I am teaching the nearby dogs."])
            , ([LojbanSentence
"mi nelci lo vi mlatu"], [LojbanSentence
"I like the nearby cats."])
            , ([LojbanSentence
"mi nelci lo vi gerku"], [LojbanSentence
"I like the nearby dogs."])
            ]
        va :: TranslationGenerator
va = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo va gerku cu gleki"], [LojbanSentence
"The moderately distant dog is happy."])
            , ([LojbanSentence
"lo va mlatu cu melbi"], [LojbanSentence
"The moderately distant cat is beautiful."])
            , ([LojbanSentence
"mi tavla lo va prenu"], [LojbanSentence
"I am talking to the moderately distant person."])
            , ([LojbanSentence
"mi ctuca lo va prenu"], [LojbanSentence
"I am teaching the moderately distant person."])
            , ([LojbanSentence
"lo va prenu cu tavla"], [LojbanSentence
"The moderately distant person is talking."])
            , ([LojbanSentence
"lo va prenu cu ciska"], [LojbanSentence
"The moderately distant person is writing."])
            , ([LojbanSentence
"lo va prenu cu gleki"], [LojbanSentence
"The moderately distant person is happy."])
            , ([LojbanSentence
"lo va prenu cu jai lerci"], [LojbanSentence
"The moderately distant person is late."])
            , ([LojbanSentence
"lo va prenu cu fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"The moderately distant person is translating to Lojban."])
            , ([LojbanSentence
"lo va prenu cu fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"The moderately distant person is translating from Lojban."])
            , ([LojbanSentence
"lo va prenu cu dunda lo plise"], [LojbanSentence
"The moderately distant person is donating an apple."])
            , ([LojbanSentence
"lo va pendo cu dunda lo plise"], [LojbanSentence
"The moderately distant friend is donating an apple."])
            , ([LojbanSentence
"lo va prenu cu vecnu lo skami"], [LojbanSentence
"The moderately distant person is selling a computer."])
            , ([LojbanSentence
"lo va pendo cu vecnu lo skami"], [LojbanSentence
"The moderately distant friend is selling a computer."])
            , ([LojbanSentence
"lo va prenu cu citka lo plise"], [LojbanSentence
"The moderately distant person is eating an apple."])
            , ([LojbanSentence
"lo va pendo cu citka lo plise"], [LojbanSentence
"The moderately distant friend is eating an apple."])
            , ([LojbanSentence
"mi ctuca lo va prenu"], [LojbanSentence
"I am teaching the moderately distant persons."])
            , ([LojbanSentence
"mi ctuca lo va gerku"], [LojbanSentence
"I am teaching the moderately distant dogs."])
            , ([LojbanSentence
"mi nelci lo va mlatu"], [LojbanSentence
"I like the moderately distant cats."])
            , ([LojbanSentence
"mi nelci lo va gerku"], [LojbanSentence
"I like the moderately distant dogs."])
            ]
        vu :: TranslationGenerator
vu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo vu gerku cu gleki"], [LojbanSentence
"The far away dog is happy."])
            , ([LojbanSentence
"lo vu mlatu cu melbi"], [LojbanSentence
"The far away cat is beautiful."])
            , ([LojbanSentence
"mi tavla lo vu prenu"], [LojbanSentence
"I am talking to the far away person."])
            , ([LojbanSentence
"mi ctuca lo vu prenu"], [LojbanSentence
"I am teaching the far away person."])
            , ([LojbanSentence
"lo vu prenu cu tavla"], [LojbanSentence
"The far away person is talking."])
            , ([LojbanSentence
"lo vu prenu cu ciska"], [LojbanSentence
"The far away person is writing."])
            , ([LojbanSentence
"lo vu prenu cu gleki"], [LojbanSentence
"The far away person is happy."])
            , ([LojbanSentence
"lo vu prenu cu jai lerci"], [LojbanSentence
"The far away person is late."])
            , ([LojbanSentence
"lo vu prenu cu fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"The far away person is translating to Lojban."])
            , ([LojbanSentence
"lo vu prenu cu fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"The far away person is translating from Lojban."])
            , ([LojbanSentence
"lo vu prenu cu dunda lo plise"], [LojbanSentence
"The far away person is donating an apple."])
            , ([LojbanSentence
"lo vu pendo cu dunda lo plise"], [LojbanSentence
"The far away friend is donating an apple."])
            , ([LojbanSentence
"lo vu prenu cu vecnu lo skami"], [LojbanSentence
"The far away person is selling a computer."])
            , ([LojbanSentence
"lo vu pendo cu vecnu lo skami"], [LojbanSentence
"The far away friend is selling a computer."])
            , ([LojbanSentence
"lo vu prenu cu citka lo plise"], [LojbanSentence
"The far away person is eating an apple."])
            , ([LojbanSentence
"lo vu pendo cu citka lo plise"], [LojbanSentence
"The far away friend is eating an apple."])
            , ([LojbanSentence
"mi ctuca lo vu prenu"], [LojbanSentence
"I am teaching the far away persons."])
            , ([LojbanSentence
"mi ctuca lo vu gerku"], [LojbanSentence
"I am teaching the far away dogs."])
            , ([LojbanSentence
"mi nelci lo vu mlatu"], [LojbanSentence
"I like the far away cats."])
            , ([LojbanSentence
"mi nelci lo vu gerku"], [LojbanSentence
"I like the far away dogs."])
            ]
        zu'a :: TranslationGenerator
zu'a = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo zu'a gerku cu gleki"], [LojbanSentence
"The dog to the left is happy."])
            , ([LojbanSentence
"lo zu'a mlatu cu melbi"], [LojbanSentence
"The cat to the left is beautiful."])
            , ([LojbanSentence
"mi tavla lo zu'a prenu"], [LojbanSentence
"I am talking to the person to the left."])
            , ([LojbanSentence
"mi ctuca lo zu'a prenu"], [LojbanSentence
"I am teaching the person to the left."])
            , ([LojbanSentence
"lo zu'a prenu cu tavla"], [LojbanSentence
"The person to the left is talking."])
            , ([LojbanSentence
"lo zu'a prenu cu ciska"], [LojbanSentence
"The person to the left is writing."])
            , ([LojbanSentence
"lo zu'a prenu cu gleki"], [LojbanSentence
"The person to the left is happy."])
            , ([LojbanSentence
"lo zu'a prenu cu jai lerci"], [LojbanSentence
"The person to the left is late."])
            , ([LojbanSentence
"lo zu'a prenu cu fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"The person to the left is translating to Lojban."])
            , ([LojbanSentence
"lo zu'a prenu cu fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"The person to the left is translating from Lojban."])
            , ([LojbanSentence
"lo zu'a prenu cu dunda lo plise"], [LojbanSentence
"The person to the left is donating an apple."])
            , ([LojbanSentence
"lo zu'a pendo cu dunda lo plise"], [LojbanSentence
"The friend to the left is donating an apple."])
            , ([LojbanSentence
"lo zu'a prenu cu vecnu lo skami"], [LojbanSentence
"The person to the left is selling a computer."])
            , ([LojbanSentence
"lo zu'a pendo cu vecnu lo skami"], [LojbanSentence
"The friend to the left is selling a computer."])
            , ([LojbanSentence
"lo zu'a prenu cu citka lo plise"], [LojbanSentence
"The person to the left is eating an apple."])
            , ([LojbanSentence
"lo zu'a pendo cu citka lo plise"], [LojbanSentence
"The friend to the left is eating an apple."])
            , ([LojbanSentence
"mi ctuca lo zu'a prenu"], [LojbanSentence
"I am teaching the persons to the left."])
            , ([LojbanSentence
"mi ctuca lo zu'a gerku"], [LojbanSentence
"I am teaching the dogs to the left."])
            , ([LojbanSentence
"mi nelci lo zu'a mlatu"], [LojbanSentence
"I like the cats to the left."])
            , ([LojbanSentence
"mi nelci lo zu'a gerku"], [LojbanSentence
"I like the dogs to the left."])
            ]
        ri'u :: TranslationGenerator
ri'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo ri'u gerku cu gleki"], [LojbanSentence
"The dog to the right is happy."])
            , ([LojbanSentence
"lo ri'u mlatu cu melbi"], [LojbanSentence
"The cat to the right is beautiful."])
            , ([LojbanSentence
"mi tavla lo ri'u prenu"], [LojbanSentence
"I am talking to the person to the right."])
            , ([LojbanSentence
"mi ctuca lo ri'u prenu"], [LojbanSentence
"I am teaching the person to the right."])
            , ([LojbanSentence
"lo ri'u prenu cu tavla"], [LojbanSentence
"The person to the right is talking."])
            , ([LojbanSentence
"lo ri'u prenu cu ciska"], [LojbanSentence
"The person to the right is writing."])
            , ([LojbanSentence
"lo ri'u prenu cu gleki"], [LojbanSentence
"The person to the right is happy."])
            , ([LojbanSentence
"lo ri'u prenu cu jai lerci"], [LojbanSentence
"The person to the right is late."])
            , ([LojbanSentence
"lo ri'u prenu cu fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"The person to the right is translating to Lojban."])
            , ([LojbanSentence
"lo ri'u prenu cu fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"The person to the right is translating from Lojban."])
            , ([LojbanSentence
"lo ri'u prenu cu dunda lo plise"], [LojbanSentence
"The person to the right is donating an apple."])
            , ([LojbanSentence
"lo ri'u pendo cu dunda lo plise"], [LojbanSentence
"The friend to the right is donating an apple."])
            , ([LojbanSentence
"lo ri'u prenu cu vecnu lo skami"], [LojbanSentence
"The person to the right is selling a computer."])
            , ([LojbanSentence
"lo ri'u pendo cu vecnu lo skami"], [LojbanSentence
"The friend to the right is selling a computer."])
            , ([LojbanSentence
"lo ri'u prenu cu citka lo plise"], [LojbanSentence
"The person to the right is eating an apple."])
            , ([LojbanSentence
"lo ri'u pendo cu citka lo plise"], [LojbanSentence
"The friend to the right is eating an apple."])
            , ([LojbanSentence
"mi ctuca lo ri'u prenu"], [LojbanSentence
"I am teaching the persons to the right."])
            , ([LojbanSentence
"mi ctuca lo ri'u gerku"], [LojbanSentence
"I am teaching the dogs to the right."])
            , ([LojbanSentence
"mi nelci lo ri'u mlatu"], [LojbanSentence
"I like the cats to the right."])
            , ([LojbanSentence
"mi nelci lo ri'u gerku"], [LojbanSentence
"I like the dogs to the right."])
            ]
        ca'u :: TranslationGenerator
ca'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo ca'u gerku cu gleki"], [LojbanSentence
"The dog to the front is happy."])
            , ([LojbanSentence
"lo ca'u mlatu cu melbi"], [LojbanSentence
"The cat to the front is beautiful."])
            , ([LojbanSentence
"mi tavla lo ca'u prenu"], [LojbanSentence
"I am talking to the person to the front."])
            , ([LojbanSentence
"mi ctuca lo ca'u prenu"], [LojbanSentence
"I am teaching the person to the front."])
            , ([LojbanSentence
"lo ca'u prenu cu tavla"], [LojbanSentence
"The person to the front is talking."])
            , ([LojbanSentence
"lo ca'u prenu cu ciska"], [LojbanSentence
"The person to the front is writing."])
            , ([LojbanSentence
"lo ca'u prenu cu gleki"], [LojbanSentence
"The person to the front is happy."])
            , ([LojbanSentence
"lo ca'u prenu cu jai lerci"], [LojbanSentence
"The person to the front is late."])
            , ([LojbanSentence
"lo ca'u prenu cu fanva fi lo (lojbo|jbobau)"], [LojbanSentence
"The person to the front is translating to Lojban."])
            , ([LojbanSentence
"lo ca'u prenu cu fanva fo lo (lojbo|jbobau)"], [LojbanSentence
"The person to the front is translating from Lojban."])
            , ([LojbanSentence
"lo ca'u prenu cu dunda lo plise"], [LojbanSentence
"The person to the front is donating an apple."])
            , ([LojbanSentence
"lo ca'u pendo cu dunda lo plise"], [LojbanSentence
"The friend to the front is donating an apple."])
            , ([LojbanSentence
"lo ca'u prenu cu vecnu lo skami"], [LojbanSentence
"The person to the front is selling a computer."])
            , ([LojbanSentence
"lo ca'u pendo cu vecnu lo skami"], [LojbanSentence
"The friend to the front is selling a computer."])
            , ([LojbanSentence
"lo ca'u prenu cu citka lo plise"], [LojbanSentence
"The person to the front is eating an apple."])
            , ([LojbanSentence
"lo ca'u pendo cu citka lo plise"], [LojbanSentence
"The friend to the front is eating an apple."])
            , ([LojbanSentence
"mi ctuca lo ca'u prenu"], [LojbanSentence
"I am teaching the persons to the front."])
            , ([LojbanSentence
"mi ctuca lo ca'u gerku"], [LojbanSentence
"I am teaching the dogs to the front."])
            , ([LojbanSentence
"mi nelci lo ca'u mlatu"], [LojbanSentence
"I like the cats to the front."])
            , ([LojbanSentence
"mi nelci lo ca'u gerku"], [LojbanSentence
"I like the dogs to the front."])
            ]
        bu'u :: TranslationGenerator
bu'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"lo prenu be bu'u lo zdani cu ctuca mi"], [LojbanSentence
"The person at home is teaching to me."])
            , ([LojbanSentence
"lo gerku be bu'u lo zdani cu citka"], [LojbanSentence
"The dog at home is eating.", LojbanSentence
"The dogs at home are eating."])
            , ([LojbanSentence
"lo mlatu be bu'u lo zdani cu citka"], [LojbanSentence
"The cat at home is eating.", LojbanSentence
"The cats at home are eating."])
            , ([LojbanSentence
"lo mi pendo be bu'u lo zdani cu tavla mi"], [LojbanSentence
"My friend at home is talking to me.", LojbanSentence
"My friends at home are talking to me."])
            , ([LojbanSentence
"lo plise be bu'u lo zdani cu melbi"], [LojbanSentence
"The apple at home is beautiful."])
            ]
    outside_sumti :: TranslationGenerator
outside_sumti = [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
3, TranslationGenerator
bu'uma), (Int
1, TranslationGenerator
bu'u), (Int
1, TranslationGenerator
vi), (Int
1, TranslationGenerator
va), (Int
1, TranslationGenerator
vu), (Int
1, TranslationGenerator
zu'a), (Int
1, TranslationGenerator
ri'u), (Int
1, TranslationGenerator
ca'u)] where
        bu'uma :: TranslationGenerator
bu'uma = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"bu'u ma do gleki"], [LojbanSentence
"Where are you happy?"])
            , ([LojbanSentence
"bu'u ma lo gerku cu citka"], [LojbanSentence
"Where is the dog eating?"])
            , ([LojbanSentence
"bu'u ma lo mlatu cu citka"], [LojbanSentence
"Where is the cat eating?"])
            , ([LojbanSentence
"bu'u ma lo skami cu se vecnu"], [LojbanSentence
"Where is the computer being sold?"])
            , ([LojbanSentence
"bu'u ma lo plise cu se dunda"], [LojbanSentence
"Where is the apple being donated?"])
            , ([LojbanSentence
"bu'u ma do ctuca"], [LojbanSentence
"Where are you teaching?"])
            ]
        bu'u :: TranslationGenerator
bu'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"(bu'u|vi) lo zdani ku do gleki"], [LojbanSentence
"At home, you are happy."])
            , ([LojbanSentence
"(bu'u|vi) lo zdani ku lo prenu cu gleki"], [LojbanSentence
"At home, people are happy."])
            , ([LojbanSentence
"(bu'u|vi) lo zdani ku lo mlatu cu gleki"], [LojbanSentence
"At home, cats are happy."])
            , ([LojbanSentence
"lo mi pendo cu citka (bu'u|vi) lo zdani"], [LojbanSentence
"My friend eats at home."])
            ]
        vi :: TranslationGenerator
vi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"(vi|bu'u) ku do gleki"], [LojbanSentence
"Here, you are happy."])
            , ([LojbanSentence
"(vi|bu'u) ku lo mi pendo cu gleki"], [LojbanSentence
"Here, my friend is happy.", LojbanSentence
"Here, my friends are happy."])
            , ([LojbanSentence
"(vi|bu'u) ku lo gerku cu citka"], [LojbanSentence
"Here, the dog is eating.", LojbanSentence
"Here, the dogs are eating."])
            , ([LojbanSentence
"(vi|bu'u) ku lo mlatu cu citka"], [LojbanSentence
"Here, the cat is eating.", LojbanSentence
"Here, the cats are eating."])
            , ([LojbanSentence
"(vi|bu'u) ku lo mi pendo cu citka"], [LojbanSentence
"Here, my friend is eating.", LojbanSentence
"Here, my friends are eating."])
            , ([LojbanSentence
"mi (vi|bu'u) vecnu lo skami"], [LojbanSentence
"I am selling the computer here."])
            , ([LojbanSentence
"mi (vi|bu'u) vecnu lo plise"], [LojbanSentence
"I am selling the apple here."])
            , ([LojbanSentence
"mi (vi|bu'u) dunda lo plise"], [LojbanSentence
"I am donating the apple here."])
            ]
        va :: TranslationGenerator
va = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"va ku do gleki"], [LojbanSentence
"Moderately nearby, you were happy."])
            , ([LojbanSentence
"va ku lo mi pendo cu gleki"], [LojbanSentence
"Moderately nearby, my friend is happy.", LojbanSentence
"Moderately nearby, my friends are happy."])
            , ([LojbanSentence
"va ku lo gerku cu citka"], [LojbanSentence
"Moderately nearby, the dog is eating.", LojbanSentence
"Moderately nearby, the dogs are eating."])
            , ([LojbanSentence
"va ku lo mlatu cu citka"], [LojbanSentence
"Moderately nearby, the cat is eating.", LojbanSentence
"Moderately nearby, the cats are eating."])
            , ([LojbanSentence
"va ku lo mi pendo cu citka"], [LojbanSentence
"Moderately nearby, my friend is eating.", LojbanSentence
"Moderately nearby, my friends are eating."])
            , ([LojbanSentence
"mi va vecnu lo skami"], [LojbanSentence
"I am selling the computer moderately nearby."])
            , ([LojbanSentence
"mi va vecnu lo plise"], [LojbanSentence
"I am selling the apple moderately nearby."])
            , ([LojbanSentence
"mi va dunda lo plise"], [LojbanSentence
"I am donating the apple moderately nearby."])
            ]
        vu :: TranslationGenerator
vu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"vu ku do gleki"], [LojbanSentence
"Far away, you will be happy."])
            , ([LojbanSentence
"vu ku lo mi pendo cu gleki"], [LojbanSentence
"Far away, my friend is happy.", LojbanSentence
"Far away, my friends are happy."])
            , ([LojbanSentence
"vu ku lo gerku cu citka"], [LojbanSentence
"Far away, the dog is eating.", LojbanSentence
"Far away, the dogs are eating."])
            , ([LojbanSentence
"vu ku lo mlatu cu citka"], [LojbanSentence
"Far away, the cat is eating.", LojbanSentence
"Far away, the cats are eating."])
            , ([LojbanSentence
"vu ku lo mi pendo cu citka"], [LojbanSentence
"Far away, my friend is eating.", LojbanSentence
"Far away, my friends are eating."])
            , ([LojbanSentence
"mi vu vecnu lo skami"], [LojbanSentence
"Far away, I am selling the computer."])
            , ([LojbanSentence
"mi vu vecnu lo plise"], [LojbanSentence
"Far away, I am selling the apple."])
            , ([LojbanSentence
"mi vu dunda lo plise"], [LojbanSentence
"Far away, I am donating the apple."])
            ]
        zu'a :: TranslationGenerator
zu'a = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"zu'a ku lo gerku cu citka"], [LojbanSentence
"To the left, the dog is eating.", LojbanSentence
"To the left, the dogs are eating."])
            , ([LojbanSentence
"zu'a ku lo mlatu cu citka"], [LojbanSentence
"To the left, the cat is eating.", LojbanSentence
"To the left, the cats are eating."])
            , ([LojbanSentence
"zu'a ku lo mi pendo cu tavla"], [LojbanSentence
"To the left, my friend is talking.", LojbanSentence
"To the left, my friends are talking."])
            , ([LojbanSentence
"zu'a ku lo mi pendo cu vecnu lo skami"], [LojbanSentence
"To the left, my friend is selling the computer."])
            , ([LojbanSentence
"zu'a ku lo mi pendo cu dunda lo plise"], [LojbanSentence
"To the left, my friend is donating the apple."])
            -- zdani
            , ([LojbanSentence
"zu'a (lo mi zdani ku|lo zdani be mi) lo gerku cu citka"], [LojbanSentence
"To the left of my house, the dog is eating.", LojbanSentence
"To the left of my house, the dogs are eating."])
            , ([LojbanSentence
"zu'a (lo mi zdani ku|lo zdani be mi) lo mlatu cu citka"], [LojbanSentence
"To the left of my house, the cat is eating.", LojbanSentence
"To the left of my house, the cats are eating."])
            , ([LojbanSentence
"zu'a lo zdani ku lo mi pendo cu tavla"], [LojbanSentence
"To the left of the house, my friend is talking.", LojbanSentence
"To the left of the house, my friends are talking."])
            , ([LojbanSentence
"zu'a lo zdani ku lo mi pendo cu vecnu lo skami"], [LojbanSentence
"To the left of the house, my friend is selling the computer."])
            , ([LojbanSentence
"zu'a lo zdani ku lo mi pendo cu dunda lo plise"], [LojbanSentence
"To the left of the house, my friend is donating the apple."])
            ]
        ri'u :: TranslationGenerator
ri'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"ri'u ku lo gerku cu citka"], [LojbanSentence
"To the right, the dog is eating.", LojbanSentence
"To the right, the dogs are eating."])
            , ([LojbanSentence
"ri'u ku lo mlatu cu citka"], [LojbanSentence
"To the right, the cat is eating.", LojbanSentence
"To the right, the cats are eating."])
            , ([LojbanSentence
"ri'u ku lo mi pendo cu tavla"], [LojbanSentence
"To the right, my friend is talking.", LojbanSentence
"To the right, my friends are talking."])
            , ([LojbanSentence
"ri'u ku lo mi pendo cu vecnu lo skami"], [LojbanSentence
"To the right, my friend is selling the computer."])
            , ([LojbanSentence
"ri'u ku lo mi pendo cu dunda lo plise"], [LojbanSentence
"To the right, my friend is donating the apple."])
            -- zdani
            , ([LojbanSentence
"ri'u (lo mi zdani ku|lo zdani be mi) lo gerku cu citka"], [LojbanSentence
"To the right of my house, the dog is eating.", LojbanSentence
"To the right of my house, the dogs are eating."])
            , ([LojbanSentence
"ri'u (lo mi zdani ku|lo zdani be mi) lo mlatu cu citka"], [LojbanSentence
"To the right of my house, the cat is eating.", LojbanSentence
"To the right of my house, the cats are eating."])
            , ([LojbanSentence
"ri'u lo zdani ku lo mi pendo cu tavla"], [LojbanSentence
"To the right of the house, my friend is talking.", LojbanSentence
"To the right of the house, my friends are talking."])
            , ([LojbanSentence
"ri'u lo zdani ku lo mi pendo cu vecnu lo skami"], [LojbanSentence
"To the right of the house, my friend is selling the computer."])
            , ([LojbanSentence
"ri'u lo zdani ku lo mi pendo cu dunda lo plise"], [LojbanSentence
"To the right of the house, my friend is donating the apple."])
            ]
        ca'u :: TranslationGenerator
ca'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
            [ ([LojbanSentence
"ca'u ku lo gerku cu citka"], [LojbanSentence
"To the front, the dog is eating.", LojbanSentence
"To the front, the dogs are eating."])
            , ([LojbanSentence
"ca'u ku lo mlatu cu citka"], [LojbanSentence
"To the front, the cat is eating.", LojbanSentence
"To the front, the cats are eating."])
            , ([LojbanSentence
"ca'u ku lo mi pendo cu tavla"], [LojbanSentence
"To the front, my friend is talking.", LojbanSentence
"To the front, my friends are talking."])
            , ([LojbanSentence
"ca'u ku lo mi pendo cu vecnu lo skami"], [LojbanSentence
"To the front, my friend is selling the computer."])
            , ([LojbanSentence
"ca'u ku lo mi pendo cu dunda lo plise"], [LojbanSentence
"To the front, my friend is donating the apple."])
            -- zdani
            , ([LojbanSentence
"ca'u (lo mi zdani ku|lo zdani be mi) lo gerku cu citka"], [LojbanSentence
"To the front of my house, the dog is eating.", LojbanSentence
"To the front of my house, the dogs are eating."])
            , ([LojbanSentence
"ca'u (lo mi zdani ku|lo zdani be mi) lo mlatu cu citka"], [LojbanSentence
"To the front of my house, the cat is eating.", LojbanSentence
"To the front of my house, the cats are eating."])
            , ([LojbanSentence
"ca'u lo zdani ku lo mi pendo cu tavla"], [LojbanSentence
"To the front of the house, my friend is talking.", LojbanSentence
"To the front of the house, my friends are talking."])
            , ([LojbanSentence
"ca'u lo zdani ku lo mi pendo cu vecnu lo skami"], [LojbanSentence
"To the front of the house, my friend is selling the computer."])
            , ([LojbanSentence
"ca'u lo zdani ku lo mi pendo cu dunda lo plise"], [LojbanSentence
"To the front of the house, my friend is donating the apple."])
            ]

translations27_expressions :: TranslationGenerator
translations27_expressions :: TranslationGenerator
translations27_expressions = TranslationGenerator -> TranslationGenerator
expandTranslationGenerator (TranslationGenerator -> TranslationGenerator)
-> TranslationGenerator -> TranslationGenerator
forall a b. (a -> b) -> a -> b
$ [(Int, TranslationGenerator)] -> TranslationGenerator
forall a. [(Int, StdGen -> a)] -> StdGen -> a
combineGenerators [(Int
1, TranslationGenerator
vi), (Int
1, TranslationGenerator
va), (Int
1, TranslationGenerator
vu), (Int
1, TranslationGenerator
zu'a), (Int
1, TranslationGenerator
ri'u), (Int
1, TranslationGenerator
ca'u), (Int
1, TranslationGenerator
bu'u)] where
    vi :: TranslationGenerator
vi = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo vi gerku"], [LojbanSentence
"The nearby dog."])
        , ([LojbanSentence
"lo vi mlatu"], [LojbanSentence
"The nearby cat."])
        , ([LojbanSentence
"lo vi prenu"], [LojbanSentence
"The nearby person."])
        , ([LojbanSentence
"lo vi dunda"], [LojbanSentence
"The nearby donor."])
        , ([LojbanSentence
"lo vi zdani"], [LojbanSentence
"The nearby house."])
        , ([LojbanSentence
"lo vi ctuca"], [LojbanSentence
"The nearby instructor."])
        ]
    va :: TranslationGenerator
va = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo va gerku"], [LojbanSentence
"The moderately distant dog."])
        , ([LojbanSentence
"lo va mlatu"], [LojbanSentence
"The moderately distant cat."])
        , ([LojbanSentence
"lo va prenu"], [LojbanSentence
"The moderately distant person."])
        , ([LojbanSentence
"lo va dunda"], [LojbanSentence
"The moderately distant donor."])
        , ([LojbanSentence
"lo va zdani"], [LojbanSentence
"The moderately distant house."])
        , ([LojbanSentence
"lo va ctuca"], [LojbanSentence
"The moderately distant instructor."])
        ]
    vu :: TranslationGenerator
vu = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo vu gerku"], [LojbanSentence
"The far away dog."])
        , ([LojbanSentence
"lo vu mlatu"], [LojbanSentence
"The far away cat."])
        , ([LojbanSentence
"lo vu prenu"], [LojbanSentence
"The far away person."])
        , ([LojbanSentence
"lo vu dunda"], [LojbanSentence
"The far away donor."])
        , ([LojbanSentence
"lo vu zdani"], [LojbanSentence
"The far away house."])
        , ([LojbanSentence
"lo vu ctuca"], [LojbanSentence
"The far away instructor."])
        ]
    zu'a :: TranslationGenerator
zu'a = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo zu'a gerku"], [LojbanSentence
"The dog to the left."])
        , ([LojbanSentence
"lo zu'a mlatu"], [LojbanSentence
"The cat to the left."])
        , ([LojbanSentence
"lo zu'a dunda"], [LojbanSentence
"The donor to the left."])
        , ([LojbanSentence
"lo zu'a zdani"], [LojbanSentence
"The house to the left."])
        -- vi
        , ([LojbanSentence
"lo zu'avi gerku"], [LojbanSentence
"The dog shortly to the left."])
        , ([LojbanSentence
"lo zu'avi mlatu"], [LojbanSentence
"The cat shortly to the left."])
        , ([LojbanSentence
"lo zu'avi dunda"], [LojbanSentence
"The donor shortly to the left."])
        , ([LojbanSentence
"lo zu'avi zdani"], [LojbanSentence
"The house shortly to the left."])
        -- va
        , ([LojbanSentence
"lo zu'ava gerku"], [LojbanSentence
"The dog moderately to the left."])
        , ([LojbanSentence
"lo zu'ava mlatu"], [LojbanSentence
"The cat moderately to the left."])
        , ([LojbanSentence
"lo zu'ava dunda"], [LojbanSentence
"The donor moderately to the left."])
        , ([LojbanSentence
"lo zu'ava zdani"], [LojbanSentence
"The house moderately to the left."])
        -- vu
        , ([LojbanSentence
"lo zu'avu gerku"], [LojbanSentence
"The dog far to the left."])
        , ([LojbanSentence
"lo zu'avu mlatu"], [LojbanSentence
"The cat far to the left."])
        , ([LojbanSentence
"lo zu'avu dunda"], [LojbanSentence
"The donor far to the left."])
        , ([LojbanSentence
"lo zu'avu zdani"], [LojbanSentence
"The house far to the left."])
        ]
    ri'u :: TranslationGenerator
ri'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo ri'u gerku"], [LojbanSentence
"The dog to the right."])
        , ([LojbanSentence
"lo ri'u mlatu"], [LojbanSentence
"The cat to the right."])
        , ([LojbanSentence
"lo ri'u dunda"], [LojbanSentence
"The donor to the right."])
        , ([LojbanSentence
"lo ri'u zdani"], [LojbanSentence
"The house to the right."])
        -- vi
        , ([LojbanSentence
"lo ri'uvi gerku"], [LojbanSentence
"The dog shortly to the right."])
        , ([LojbanSentence
"lo ri'uvi mlatu"], [LojbanSentence
"The cat shortly to the right."])
        , ([LojbanSentence
"lo ri'uvi dunda"], [LojbanSentence
"The donor shortly to the right."])
        , ([LojbanSentence
"lo ri'uvi zdani"], [LojbanSentence
"The house shortly to the right."])
        -- va
        , ([LojbanSentence
"lo ri'uva gerku"], [LojbanSentence
"The dog moderately to the right."])
        , ([LojbanSentence
"lo ri'uva mlatu"], [LojbanSentence
"The cat moderately to the right."])
        , ([LojbanSentence
"lo ri'uva dunda"], [LojbanSentence
"The donor moderately to the right."])
        , ([LojbanSentence
"lo ri'uva zdani"], [LojbanSentence
"The house moderately to the right."])
        -- vu
        , ([LojbanSentence
"lo ri'uvu gerku"], [LojbanSentence
"The dog far to the right."])
        , ([LojbanSentence
"lo ri'uvu mlatu"], [LojbanSentence
"The cat far to the right."])
        , ([LojbanSentence
"lo ri'uvu dunda"], [LojbanSentence
"The donor far to the right."])
        , ([LojbanSentence
"lo ri'uvu zdani"], [LojbanSentence
"The house far to the right."])
        ]
    ca'u :: TranslationGenerator
ca'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo ca'u gerku"], [LojbanSentence
"The dog to the front."])
        , ([LojbanSentence
"lo ca'u mlatu"], [LojbanSentence
"The cat to the front."])
        , ([LojbanSentence
"lo ca'u prenu"], [LojbanSentence
"The person to the front."])
        , ([LojbanSentence
"lo ca'u dunda"], [LojbanSentence
"The donor to the front."])
        , ([LojbanSentence
"lo ca'u zdani"], [LojbanSentence
"The house to the front."])
        , ([LojbanSentence
"lo ca'u ctuca"], [LojbanSentence
"The instructor to the front."])
        -- vi
        , ([LojbanSentence
"lo ca'uvi gerku"], [LojbanSentence
"The dog shortly to the front."])
        , ([LojbanSentence
"lo ca'uvi mlatu"], [LojbanSentence
"The cat shortly to the front."])
        , ([LojbanSentence
"lo ca'uvi prenu"], [LojbanSentence
"The person shortly to the front."])
        , ([LojbanSentence
"lo ca'uvi dunda"], [LojbanSentence
"The donor shortly to the front."])
        , ([LojbanSentence
"lo ca'uvi zdani"], [LojbanSentence
"The house shortly to the front."])
        , ([LojbanSentence
"lo ca'uvi ctuca"], [LojbanSentence
"The instructor shortly to the front."])
        -- va
        , ([LojbanSentence
"lo ca'uva gerku"], [LojbanSentence
"The dog moderately to the front."])
        , ([LojbanSentence
"lo ca'uva mlatu"], [LojbanSentence
"The cat moderately to the front."])
        , ([LojbanSentence
"lo ca'uva prenu"], [LojbanSentence
"The person moderately to the front."])
        , ([LojbanSentence
"lo ca'uva dunda"], [LojbanSentence
"The donor moderately to the front."])
        , ([LojbanSentence
"lo ca'uva zdani"], [LojbanSentence
"The house moderately to the front."])
        , ([LojbanSentence
"lo ca'uva ctuca"], [LojbanSentence
"The instructor moderately to the front."])
        -- vu
        , ([LojbanSentence
"lo ca'uvu gerku"], [LojbanSentence
"The dog far to the front."])
        , ([LojbanSentence
"lo ca'uvu mlatu"], [LojbanSentence
"The cat far to the front."])
        , ([LojbanSentence
"lo ca'uvu prenu"], [LojbanSentence
"The person far to the front."])
        , ([LojbanSentence
"lo ca'uvu dunda"], [LojbanSentence
"The donor far to the front."])
        , ([LojbanSentence
"lo ca'uvu zdani"], [LojbanSentence
"The house far to the front."])
        , ([LojbanSentence
"lo ca'uvu ctuca"], [LojbanSentence
"The instructor far to the front."])
        ]
    bu'u :: TranslationGenerator
bu'u = [([LojbanSentence], [LojbanSentence])] -> TranslationGenerator
forall a. [a] -> StdGen -> (a, StdGen)
generatorFromList
        [ ([LojbanSentence
"lo prenu be bu'u lo zdani"], [LojbanSentence
"The person at home."])
        , ([LojbanSentence
"lo gerku be bu'u lo zdani"], [LojbanSentence
"The dog at home.", LojbanSentence
"The dogs at home."])
        , ([LojbanSentence
"lo mlatu be bu'u lo zdani"], [LojbanSentence
"The cat at home.", LojbanSentence
"The cats at home."])
        , ([LojbanSentence
"lo mi pendo be bu'u lo zdani"], [LojbanSentence
"My friend at home.", LojbanSentence
"My friends at home."])
        , ([LojbanSentence
"lo plise be bu'u lo zdani"], [LojbanSentence
"The apple at home"])
        ]