let ParticleWord = ../types/ParticleWord.dhall

let emotion =
      λ(x : ParticleWord.Type) →
        ParticleWord::{
        , word = x.word
        , gloss = x.gloss
        , family = "UI"
        , definition = "${x.gloss} emotional indicator"
        }

in  emotion