# Main Command: comensa to comensa cleartext setsep 0.2 # ==== categorias gramatical ==== print [profador 20.08.24] print [categorias gramatical: a \(ajetivo\), b \(averbo\), c \(conjunta\), d \("de"\), g \(virgula\), k \("ci"\), l \(verbo_liante\), lnt \(l+nte\), m \(pronom\), n \(nom\), p \(preposada\), q \("cual"\), r \("par"\), s \(sujunta\), v \(verbo_transitiva\), vda \(v+da\), vnt \(v+nte\), w \(verbo_nontransitiva\), wnt \(w+nte\)] # --------------------------------------------------------------------------------- #| junta ^ formula ^ fn: formula nomin ^| fv: formula verbal |||| #| ^ averbin ^ ^| |||| #| ------|---------|---------------------|-----------------|-------|--------------|| #| -- | -- | n | formula | l a | | || #| c | b | | ajetivin | w | -- | || #| s | p n | | -- |-----------------| b |--------------|| #| | wnt | | a | v | p n | n | -- | #| | vnt n | | d n | | | | a | #| | s fn fv | | k w | | | | d n | #| | | | k v n | | | | k w | #| | | | k l a | | | | k v n | #| | | | q n v | | | | k l a | #| | | | | | | | q n v | # --------------------------------------------------------------------------------- globalmake "p0 [] #[La partisipante :p indica la numero de pulsas o parolas xef a cada linia.] repeat 4 [globalmake "p0 (lput (random 5) :p0)] globalmake "p [] repeat 4 [if (item repcount :p0) = 0 [] [globalmake "p (lput (item repcount :p0) :p)]] print (sentence "\n [pulsas:] :p "\n) # if :p = [3 2], la poesia ave du linias, la linia prima ave tre parolas, la linia du ave 2 parolas globalmake "linia [] globalmake "sintatica [] if (count :p) = 1 [clui_flue titulo unuple :p] if (count :p) = 2 [clui_flue titulo duple :p] if (count :p) = 3 [clui_flue titulo truple :p] if (count :p) = 4 [clui_flue titulo cuatruple :p] print (sentence "\n :sintatica "\n) stopall end to unuple :p if :p = [0] [] if :p = [1] [run pick [[fv 1 g2][m fv 1 g1]] ] if :p = [2] [run pick [ [linia [[fn 1] [fv 1]] ] [linia [[fb 1] g [fv 1]] ] ]] if :p = [3] [run pick [ [linia [[fn 1] [fv 2]] ] [linia [[fb 1] g [fn 1] [fv 1]] ] ]] if :p = [4] [run pick [ [linia [[fn 2] [fv 2]] ] [linia [[fb 1] g [fn 1] [fv 2]] ] [linia [[fb 1] g [fn 2] [fv 1]] ] [linia [[fb 2] g [fn 1] [fv 1]] ] ]] end to duple :p if :p = (list 0 0) [] if :p = (list 1 1) [run pick [ [linia [[fn 1]] linia [[fv 1]] ] [linia [[m [fv 1] g]] linia [[m [fv 1] g1]] ] ]] if :p = (list 1 2) [run pick [ [linia [[fn 1]] linia [[fv 2]] ] [linia [[fb 1] g] linia [[fn 1] [fv 1]] ] [linia [[fn 1]] linia [[fa 1] [fv 1]] ] ]] if :p = (list 1 3) [run pick [ [linia [[fn 1]] linia [[fv 3]] ] [linia [[fb 1] g] linia [[fn 1] [fv 2]] ] [linia [[fn 1]] linia [[fa 2] [fv 1]] ] [linia [[fn 1] g] linia [[fa 1] [fv 2]] ] ]] if :p = (list 1 4) [run pick [ [linia [[fn 1]] linia [[fv 4]] ] [linia [[fb 1] g] linia [[fn 1] [fv 3]] ] [linia [[fn 1]] linia [[fa 3] [fv 1]] ] [linia [[fn 1] g] linia [[fa 2] [fv 2]] ] [linia [[fn 1]] linia [[fa 1] [fv 3]] ] [linia [[fb 1] g] linia [[fn 2] [fv 2]] ] [linia [[fb 1] g] linia [[fn 3] [fv 1]] ] ]] if :p = (list 2 1) [run pick [ [linia [[fn 2]] linia [[fv 1]] ] [linia [[fb 1] g [fn 1]] linia [[fv 1]] ] [linia [[fn 1] [fv 1]] linia [[fn 1]] ] ]] if :p = (list 2 2) [run pick [ [linia [[fn 2]] linia [[fv 2]] ] [linia [[fb 1] g [fn 1]] linia [[fv 2]] ] [linia [[fb 2] g] linia [[fn 1] [fv 1]] ] [linia [[fn 1] [fv 1]] linia [[fn 2]] ] ]] if :p = (list 2 3) [run pick [ [linia [[fn 2]] linia [[fv 3]] ] [linia [[fb 1] g [fn 1]] linia [[fv 3]] ] [linia [[fb 2] g] linia [[fn 1] [fv 2]] ] [linia [[fn 1] [fv 1]] linia [[fn 3]] ] [linia [[fn 1] [fv 1]] linia [[sc 1] [fn 1] [fv 1]] ] ]] if :p = (list 2 4) [run pick [ [linia [[fn 2]] linia [[fv 4]] ] [linia [[fb 1] g [fn 1]] linia [[fv 4]] ] [linia [[fb 2] g] linia [[fn 1] [fv 3]] ] [linia [[fn 1] [fv 1]] linia [[fn 4]] ] [linia [[fn 1] [fv 1]] linia [[sc 1] [fn 1] [fv 2]] ] ]] if :p = (list 3 1) [run pick [ [linia [[fn 3]] linia [[fv 1]] ] [linia [[fb 1] g [fn 2]] linia [[fv 1]] ] [linia [[fb 2] g [fn 1]] linia [[fv 1]] ] [linia [[fb 1] g [fn 1] [fv 1]] linia [[fn 1]] ] ]] if :p = (list 3 2) [run pick [ [linia [[fn 3]] linia [[fv 2]] ] [linia [[fb 1] g [fn 2]] linia [[fv 2]] ] [linia [[fb 2] g [fn 1]] linia [[fv 2]] ] [linia [[fb 1] g [fn 1] [fv 1]] linia [[fn 2]] ] [linia [[fb 3]] linia [[fn 1] [fv 1]] ] ]] if :p = (list 3 3) [run pick [ [linia [[fn 3]] linia [[fv 3]] ] [linia [[fb 1] g [fn 2]] linia [[fv 3]] ] [linia [[fb 2] g [fn 1]] linia [[fv 3]] ] [linia [[fb 1] g [fn 1] [fv 1]] linia [[fn 3]] ] [linia [[fb 3]] linia [[fn 1] [fv 2]] ] [linia [[fb 3]] linia [[fn 2] [fv 1]] ] ]] if :p = (list 3 4) [run pick [ [linia [[fn 3]] linia [[fv 4]] ] [linia [[fb 1] g [fn 2]] linia [[fv 4]] ] [linia [[fb 2] g [fn 1]] linia [[fv 4]] ] [linia [[fb 1] g [fn 1] [fv 1]] linia [[fn 4]] ] [linia [[fb 3]] linia [[fn 1] [fv 3]] ] [linia [[fb 3]] linia [[fn 2] [fv 2]] ] [linia [[fb 3]] linia [[fn 3] [fv 1]] ] ]] if :p = (list 4 1) [run pick [ [linia [[fn 4]] linia [[fv 1]] ] [linia [[fb 1] g [fn 3]] linia [[fv 1]] ] [linia [[fb 2] g [fn 2]] linia [[fv 1]] ] [linia [[fb 3] g [fn 1]] linia [[fv 1]] ] ]] if :p = (list 4 2) [run pick [ [linia [[fn 4]] linia [[fv 2]] ] [linia [[fb 1] g [fn 3]] linia [[fv 2]] ] [linia [[fb 2] g [fn 2]] linia [[fv 2]] ] [linia [[fb 3] g [fn 1]] linia [[fv 2]] ] [linia [[fb 4]] linia [[fn 1] [fv 1]] ] ]] if :p = (list 4 3) [run pick [ [linia [[fn 4]] linia [[fv 3]] ] [linia [[fb 1] g [fn 3]] linia [[fv 3]] ] [linia [[fb 2] g [fn 2]] linia [[fv 3]] ] [linia [[fb 3] g [fn 1]] linia [[fv 3]] ] [linia [[fb 4] g] linia [[fn 1] [fv 2]] ] [linia [[fb 4] g] linia [[fn 2] [fv 1]] ] ]] if :p = (list 4 4) [run pick [ [linia [[fn 4]] linia [[fv 4]] ] [linia [[fb 1] g [fn 3]] linia [[fv 4]] ] [linia [[fb 2] g [fn 2]] linia [[fv 4]] ] [linia [[fb 3] g [fn 1]] linia [[fv 4]] ] [linia [[fb 4] g] linia [[fn 1] [fv 3]] ] [linia [[fb 4] g] linia [[fn 2] [fv 2]] ] [linia [[fb 4] g] linia [[fn 3] [fv 1]] ] ]] end to truple :p if :p = (list 0 0 0) [] if :p = (list 1 1 1) [run pick [ [linia [[fb 1]] duple [1 1]] [duple [1 1] linia [[fb 1]]] ]] if :p = (list 1 1 2) [run pick [ [linia [[fb 1]] duple [1 2]] [duple [1 1] linia [[fb 2]]] ]] if :p = (list 1 1 3) [run pick [ [linia [[fb 1]] duple [1 3]] [duple [1 1] linia [[fb 3]]] [duple [1 1] linia [[soc 1] n [fv 1]]] ]] if :p = (list 1 1 4) [run pick [ [linia [[fb 1]] duple [1 4]] [duple [1 1] linia [[fb 4]]] [duple [1 1] linia [[soc 1] n [fv 2]]] ]] if :p = (list 1 2 1) [run pick [ [linia [[fb 1]] duple [2 1]] [duple [1 2] linia [[fb 1]]] ]] if :p = (list 1 2 2) [run pick [ [linia [[fb 1]] duple [2 2]] [duple [1 2] linia [[fb 2]]] ]] if :p = (list 1 2 3) [run pick [ [linia [[fb 1]] duple [2 3]] [duple [1 2] linia [[fb 3]]] [duple [1 2] linia [[soc 1] n [fv 1]]] ]] if :p = (list 1 2 4) [run pick [ [linia [[fb 1]] duple [2 4]] [duple [1 2] linia [[fb 4]]] [duple [1 2] linia [[soc 1] n [fv 2]]] ]] if :p = (list 1 3 1) [run pick [ [linia [[fb 1]] duple [3 1]] [duple [1 3] linia [[fb 1]]] ]] if :p = (list 1 3 2) [run pick [ [linia [[fb 1]] duple [3 2]] [duple [1 3] linia [[fb 2]]] ]] if :p = (list 1 3 3) [run pick [ [linia [[fb 1]] duple [3 3]] [duple [1 3] linia [[fb 3]]] [duple [1 3] linia [[soc 1] n [fv 1]]] ]] if :p = (list 1 3 4) [run pick [ [linia [[fb 1]] duple [3 4]] [duple [1 3] linia [[fb 4]]] [duple [1 3] linia [[soc 1] n [fv 2]]] ]] if :p = (list 1 4 1) [run pick [ [linia [[fb 1]] duple [4 1]] [duple [1 4] linia [[fb 1]]] ]] if :p = (list 1 4 2) [run pick [ [linia [[fb 1]] duple [4 2]] [duple [1 4] linia [[fb 2]]] ]] if :p = (list 1 4 3) [run pick [ [linia [[fb 1]] duple [4 3]] [duple [1 4] linia [[fb 3]]] [duple [1 4] linia [[soc 1] n [fv 1]]] ]] if :p = (list 1 4 4) [run pick [ [linia [[fb 1]] duple [4 4]] [duple [1 4] linia [[fb 4]]] [duple [1 4] linia [[soc 1] n [fv 2]]] ]] if :p = (list 2 1 1) [run pick [ [linia [[fb 2]] duple [1 1]] [duple [2 1] linia [[fb 1]]] ]] if :p = (list 2 1 2) [run pick [ [linia [[fb 2]] duple [1 2]] [duple [2 1] linia [[fb 2]]] ]] if :p = (list 2 1 3) [run pick [ [linia [[fb 2]] duple [1 3]] [duple [2 1] linia [[fb 3]]] [duple [2 1] linia [[soc 1] n [fv 1]]] ]] if :p = (list 2 1 4) [run pick [ [linia [[fb 2]] duple [1 4]] [duple [2 1] linia [[fb 4]]] [duple [2 1] linia [[soc 1] n [fv 2]]] ]] if :p = (list 2 2 1) [run pick [ [linia [[fb 2]] duple [2 1]] [duple [2 2] linia [[fb 1]]] ]] if :p = (list 2 2 2) [run pick [ [linia [[fb 2]] duple [2 2]] [duple [2 2] linia [[fb 2]]] ]] if :p = (list 2 2 3) [run pick [ [linia [[fb 2]] duple [2 3]] [duple [2 2] linia [[fb 3]]] [duple [2 2] linia [[soc 1] n [fv 1]]] ]] if :p = (list 2 2 4) [run pick [ [linia [[fb 2]] duple [2 4]] [duple [2 2] linia [[fb 4]]] [duple [2 2] linia [[soc 1] n [fv 2]]] ]] if :p = (list 2 3 1) [run pick [ [linia [[fb 2]] duple [3 1]] [duple [2 3] linia [[fb 1]]] ]] if :p = (list 2 3 2) [run pick [ [linia [[fb 2]] duple [3 2]] [duple [2 3] linia [[fb 2]]] ]] if :p = (list 2 3 3) [run pick [ [linia [[fb 2]] duple [3 3]] [duple [2 3] linia [[fb 3]]] [duple [2 3] linia [[soc 1] n [fv 1]]] ]] if :p = (list 2 3 4) [run pick [ [linia [[fb 2]] duple [3 4]] [duple [2 3] linia [[fb 4]]] [duple [2 3] linia [[soc 1] n [fv 2]]] ]] if :p = (list 2 4 1) [run pick [ [linia [[fb 2]] duple [4 1]] [duple [2 4] linia [[fb 1]]] ]] if :p = (list 2 4 2) [run pick [ [linia [[fb 2]] duple [4 2]] [duple [2 4] linia [[fb 2]]] ]] if :p = (list 2 4 3) [run pick [ [linia [[fb 2]] duple [4 3]] [duple [2 4] linia [[fb 3]]] [duple [2 4] linia [[soc 1] n [fv 1]]] ]] if :p = (list 2 4 4) [run pick [ [linia [[fb 2]] duple [4 4]] [duple [2 4] linia [[fb 4]]] [duple [2 4] linia [[soc 1] n [fv 2]]] ]] if :p = (list 3 1 1) [run pick [ [linia [[fb 3]] duple [1 1]] [duple [3 1] linia [[fb 1]]] ]] if :p = (list 3 1 2) [run pick [ [linia [[fb 3]] duple [1 2]] [duple [3 1] linia [[fb 2]]] ]] if :p = (list 3 1 3) [run pick [ [linia [[fb 3]] duple [1 3]] [duple [3 1] linia [[fb 3]]] [duple [3 1] linia [[soc 1] n [fv 1]]] ]] if :p = (list 3 1 4) [run pick [ [linia [[fb 3]] duple [1 4]] [duple [3 1] linia [[fb 4]]] [duple [3 1] linia [[soc 1] n [fv 2]]] ]] if :p = (list 3 2 1) [run pick [ [linia [[fb 3]] duple [2 1]] [duple [3 2] linia [[fb 1]]] ]] if :p = (list 3 2 2) [run pick [ [linia [[fb 3]] duple [2 2]] [duple [3 2] linia [[fb 2]]] ]] if :p = (list 3 2 3) [run pick [ [linia [[fb 3]] duple [2 3]] [duple [3 2] linia [[fb 3]]] [duple [3 2] linia [[soc 1] n [fv 1]]] ]] if :p = (list 3 2 4) [run pick [ [linia [[fb 3]] duple [2 4]] [duple [3 2] linia [[fb 4]]] [duple [3 2] linia [[soc 1] n [fv 2]]] ]] if :p = (list 3 3 1) [run pick [ [linia [[fb 3]] duple [3 1]] [duple [3 3] linia [[fb 1]]] ]] if :p = (list 3 3 2) [run pick [ [linia [[fb 3]] duple [3 2]] [duple [3 3] linia [[fb 2]]] ]] if :p = (list 3 3 3) [run pick [ [linia [[fb 3]] duple [3 3]] [duple [3 3] linia [[fb 3]]] [duple [3 3] linia [[soc 1] n [fv 1]]] ]] if :p = (list 3 3 4) [run pick [ [linia [[fb 3]] duple [3 4]] [duple [3 3] linia [[fb 4]]] [duple [3 3] linia [[soc 1] n [fv 2]]] ]] if :p = (list 3 4 1) [run pick [ [linia [[fb 3]] duple [4 1]] [duple [3 4] linia [[fb 1]]] ]] if :p = (list 3 4 2) [run pick [ [linia [[fb 3]] duple [4 2]] [duple [3 4] linia [[fb 2]]] ]] if :p = (list 3 4 3) [run pick [ [linia [[fb 3]] duple [4 3]] [duple [3 4] linia [[fb 3]]] [duple [3 4] linia [[soc 1] n [fv 1]]] ]] if :p = (list 3 4 4) [run pick [ [linia [[fb 3]] duple [4 4]] [duple [3 4] linia [[fb 4]]] [duple [3 4] linia [[soc 1] n [fv 2]]] ]] if :p = (list 4 1 1) [run pick [ [linia [[fb 4]] duple [1 1]] [duple [4 1] linia [[fb 1]]] ]] if :p = (list 4 1 2) [run pick [ [linia [[fb 4]] duple [1 2]] [duple [4 1] linia [[fb 2]]] ]] if :p = (list 4 1 3) [run pick [ [linia [[fb 4]] duple [1 3]] [duple [4 1] linia [[fb 3]]] [duple [4 1] linia [[soc 1] n [fv 1]]] ]] if :p = (list 4 1 4) [run pick [ [linia [[fb 4]] duple [1 4]] [duple [4 1] linia [[fb 4]]] [duple [4 1] linia [[soc 1] n [fv 2]]] ]] if :p = (list 4 2 1) [run pick [ [linia [[fb 4]] duple [2 1]] [duple [4 2] linia [[fb 1]]] ]] if :p = (list 4 2 2) [run pick [ [linia [[fb 4]] duple [2 2]] [duple [4 2] linia [[fb 2]]] ]] if :p = (list 4 2 3) [run pick [ [linia [[fb 4]] duple [2 3]] [duple [4 2] linia [[fb 3]]] [duple [4 2] linia [[soc 1] n [fv 1]]] ]] if :p = (list 4 2 4) [run pick [ [linia [[fb 4]] duple [2 4]] [duple [4 2] linia [[fb 4]]] [duple [4 2] linia [[soc 1] n [fv 2]]] ]] if :p = (list 4 3 1) [run pick [ [linia [[fb 4]] duple [3 1]] [duple [4 3] linia [[fb 1]]] ]] if :p = (list 4 3 2) [run pick [ [linia [[fb 4]] duple [3 2]] [duple [4 3] linia [[fb 2]]] ]] if :p = (list 4 3 3) [run pick [ [linia [[fb 4]] duple [3 3]] [duple [4 3] linia [[fb 3]]] [duple [4 3] linia [[soc 1] n [fv 1]]] ]] if :p = (list 4 3 4) [run pick [ [linia [[fb 4]] duple [3 4]] [duple [4 3] linia [[fb 4]]] [duple [4 3] linia [[soc 1] n [fv 2]]] ]] if :p = (list 4 4 1) [run pick [ [linia [[fb 4]] duple [4 1]] [duple [4 4] linia [[fb 1]]] ]] if :p = (list 4 4 2) [run pick [ [linia [[fb 4]] duple [4 2]] [duple [4 4] linia [[fb 2]]] ]] if :p = (list 4 4 3) [run pick [ [linia [[fb 4]] duple [4 3]] [duple [4 4] linia [[fb 3]]] [duple [4 4] linia [[soc 1] n [fv 1]]] ]] if :p = (list 4 4 4) [run pick [ [linia [[fb 4]] duple [4 4]] [duple [4 4] linia [[fb 4]]] [duple [4 4] linia [[soc 1] n [fv 2]]] ]] end to cuatruple :p if :p = (list 1 1 1 1) [run pick [ [unuple [1] truple [1 1 1]] [truple [1 1 1] unuple [1]] [duple [1 1] duple [1 1]] ]] if :p = (list 1 1 1 2) [run pick [ [unuple [1] truple [1 1 2]] [truple [1 1 1] unuple [2]] [duple [1 1] duple [1 2]] ]] if :p = (list 1 1 1 3) [run pick [ [unuple [1] truple [1 1 3]] [truple [1 1 1] unuple [3]] [duple [1 1] duple [1 3]] ]] if :p = (list 1 1 1 4) [run pick [ [unuple [1] truple [1 1 4]] [truple [1 1 1] unuple [4]] [duple [1 1] duple [1 4]] ]] if :p = (list 1 1 2 1) [run pick [ [unuple [1] truple [1 2 1]] [truple [1 1 2] unuple [1]] [duple [1 1] duple [2 1]] ]] if :p = (list 1 1 2 2) [run pick [ [unuple [1] truple [1 2 2]] [truple [1 1 2] unuple [2]] [duple [1 1] duple [2 2]] ]] if :p = (list 1 1 2 3) [run pick [ [unuple [1] truple [1 2 3]] [truple [1 1 2] unuple [3]] [duple [1 1] duple [2 3]] ]] if :p = (list 1 1 2 4) [run pick [ [unuple [1] truple [1 2 4]] [truple [1 1 2] unuple [4]] [duple [1 1] duple [2 4]] ]] if :p = (list 1 1 3 1) [run pick [ [unuple [1] truple [1 3 1]] [truple [1 1 3] unuple [1]] [duple [1 1] duple [3 1]] ]] if :p = (list 1 1 3 2) [run pick [ [unuple [1] truple [1 3 2]] [truple [1 1 3] unuple [2]] [duple [1 1] duple [3 2]] ]] if :p = (list 1 1 3 3) [run pick [ [unuple [1] truple [1 3 3]] [truple [1 1 3] unuple [3]] [duple [1 1] duple [3 3]] ]] if :p = (list 1 1 3 4) [run pick [ [unuple [1] truple [1 3 4]] [truple [1 1 3] unuple [4]] [duple [1 1] duple [3 4]] ]] if :p = (list 1 1 4 1) [run pick [ [unuple [1] truple [1 4 1]] [truple [1 1 4] unuple [1]] [duple [1 1] duple [4 1]] ]] if :p = (list 1 1 4 2) [run pick [ [unuple [1] truple [1 4 2]] [truple [1 1 4] unuple [2]] [duple [1 1] duple [4 2]] ]] if :p = (list 1 1 4 3) [run pick [ [unuple [1] truple [1 4 3]] [truple [1 1 4] unuple [3]] [duple [1 1] duple [4 3]] ]] if :p = (list 1 1 4 4) [run pick [ [unuple [1] truple [1 4 4]] [truple [1 1 4] unuple [4]] [duple [1 1] duple [4 4]] ]] if :p = (list 1 2 1 1) [run pick [ [unuple [1] truple [2 1 1]] [truple [1 2 1] unuple [1]] [duple [1 2] duple [1 1]] ]] if :p = (list 1 2 1 2) [run pick [ [unuple [1] truple [2 1 2]] [truple [1 2 1] unuple [2]] [duple [1 2] duple [1 2]] ]] if :p = (list 1 2 1 3) [run pick [ [unuple [1] truple [2 1 3]] [truple [1 2 1] unuple [3]] [duple [1 2] duple [1 3]] ]] if :p = (list 1 2 1 4) [run pick [ [unuple [1] truple [2 1 4]] [truple [1 2 1] unuple [4]] [duple [1 2] duple [1 4]] ]] if :p = (list 1 2 2 1) [run pick [ [unuple [1] truple [2 2 1]] [truple [1 2 2] unuple [1]] [duple [1 2] duple [2 1]] ]] if :p = (list 1 2 2 2) [run pick [ [unuple [1] truple [2 2 2]] [truple [1 2 2] unuple [2]] [duple [1 2] duple [2 2]] ]] if :p = (list 1 2 2 3) [run pick [ [unuple [1] truple [2 2 3]] [truple [1 2 2] unuple [3]] [duple [1 2] duple [2 3]] ]] if :p = (list 1 2 2 4) [run pick [ [unuple [1] truple [2 2 4]] [truple [1 2 2] unuple [4]] [duple [1 2] duple [2 4]] ]] if :p = (list 1 2 3 1) [run pick [ [unuple [1] truple [2 3 1]] [truple [1 2 3] unuple [1]] [duple [1 2] duple [3 1]] ]] if :p = (list 1 2 3 2) [run pick [ [unuple [1] truple [2 3 2]] [truple [1 2 3] unuple [2]] [duple [1 2] duple [3 2]] ]] if :p = (list 1 2 3 3) [run pick [ [unuple [1] truple [2 3 3]] [truple [1 2 3] unuple [3]] [duple [1 2] duple [3 3]] ]] if :p = (list 1 2 3 4) [run pick [ [unuple [1] truple [2 3 4]] [truple [1 2 3] unuple [4]] [duple [1 2] duple [3 4]] ]] if :p = (list 1 2 4 1) [run pick [ [unuple [1] truple [2 4 1]] [truple [1 2 4] unuple [1]] [duple [1 2] duple [4 1]] ]] if :p = (list 1 2 4 2) [run pick [ [unuple [1] truple [2 4 2]] [truple [1 2 4] unuple [2]] [duple [1 2] duple [4 2]] ]] if :p = (list 1 2 4 3) [run pick [ [unuple [1] truple [2 4 3]] [truple [1 2 4] unuple [3]] [duple [1 2] duple [4 3]] ]] if :p = (list 1 2 4 4) [run pick [ [unuple [1] truple [2 4 4]] [truple [1 2 4] unuple [4]] [duple [1 2] duple [4 4]] ]] if :p = (list 1 3 1 1) [run pick [ [unuple [1] truple [3 1 1]] [truple [1 3 1] unuple [1]] [duple [1 3] duple [1 1]] ]] if :p = (list 1 3 1 2) [run pick [ [unuple [1] truple [3 1 2]] [truple [1 3 1] unuple [2]] [duple [1 3] duple [1 2]] ]] if :p = (list 1 3 1 3) [run pick [ [unuple [1] truple [3 1 3]] [truple [1 3 1] unuple [3]] [duple [1 3] duple [1 3]] ]] if :p = (list 1 3 1 4) [run pick [ [unuple [1] truple [3 1 4]] [truple [1 3 1] unuple [4]] [duple [1 3] duple [1 4]] ]] if :p = (list 1 3 2 1) [run pick [ [unuple [1] truple [3 2 1]] [truple [1 3 2] unuple [1]] [duple [1 3] duple [2 1]] ]] if :p = (list 1 3 2 2) [run pick [ [unuple [1] truple [3 2 2]] [truple [1 3 2] unuple [2]] [duple [1 3] duple [2 2]] ]] if :p = (list 1 3 2 3) [run pick [ [unuple [1] truple [3 2 3]] [truple [1 3 2] unuple [3]] [duple [1 3] duple [2 3]] ]] if :p = (list 1 3 2 4) [run pick [ [unuple [1] truple [3 2 4]] [truple [1 3 2] unuple [4]] [duple [1 3] duple [2 4]] ]] if :p = (list 1 3 3 1) [run pick [ [unuple [1] truple [3 3 1]] [truple [1 3 3] unuple [1]] [duple [1 3] duple [3 1]] ]] if :p = (list 1 3 3 2) [run pick [ [unuple [1] truple [3 3 2]] [truple [1 3 3] unuple [2]] [duple [1 3] duple [3 2]] ]] if :p = (list 1 3 3 3) [run pick [ [unuple [1] truple [3 3 3]] [truple [1 3 3] unuple [3]] [duple [1 3] duple [3 3]] ]] if :p = (list 1 3 3 4) [run pick [ [unuple [1] truple [3 3 4]] [truple [1 3 3] unuple [4]] [duple [1 3] duple [3 4]] ]] if :p = (list 1 3 4 1) [run pick [ [unuple [1] truple [3 4 1]] [truple [1 3 4] unuple [1]] [duple [1 3] duple [4 1]] ]] if :p = (list 1 3 4 2) [run pick [ [unuple [1] truple [3 4 2]] [truple [1 3 4] unuple [2]] [duple [1 3] duple [4 2]] ]] if :p = (list 1 3 4 3) [run pick [ [unuple [1] truple [3 4 3]] [truple [1 3 4] unuple [3]] [duple [1 3] duple [4 3]] ]] if :p = (list 1 3 4 4) [run pick [ [unuple [1] truple [3 4 4]] [truple [1 3 4] unuple [4]] [duple [1 3] duple [4 4]] ]] if :p = (list 1 4 1 1) [run pick [ [unuple [1] truple [4 1 1]] [truple [1 4 1] unuple [1]] [duple [1 4] duple [1 1]] ]] if :p = (list 1 4 1 2) [run pick [ [unuple [1] truple [4 1 2]] [truple [1 4 1] unuple [2]] [duple [1 4] duple [1 2]] ]] if :p = (list 1 4 1 3) [run pick [ [unuple [1] truple [4 1 3]] [truple [1 4 1] unuple [3]] [duple [1 4] duple [1 3]] ]] if :p = (list 1 4 1 4) [run pick [ [unuple [1] truple [4 1 4]] [truple [1 4 1] unuple [4]] [duple [1 4] duple [1 4]] ]] if :p = (list 1 4 2 1) [run pick [ [unuple [1] truple [4 2 1]] [truple [1 4 2] unuple [1]] [duple [1 4] duple [2 1]] ]] if :p = (list 1 4 2 2) [run pick [ [unuple [1] truple [4 2 2]] [truple [1 4 2] unuple [2]] [duple [1 4] duple [2 2]] ]] if :p = (list 1 4 2 3) [run pick [ [unuple [1] truple [4 2 3]] [truple [1 4 2] unuple [3]] [duple [1 4] duple [2 3]] ]] if :p = (list 1 4 2 4) [run pick [ [unuple [1] truple [4 2 4]] [truple [1 4 2] unuple [4]] [duple [1 4] duple [2 4]] ]] if :p = (list 1 4 3 1) [run pick [ [unuple [1] truple [4 3 1]] [truple [1 4 3] unuple [1]] [duple [1 4] duple [3 1]] ]] if :p = (list 1 4 3 2) [run pick [ [unuple [1] truple [4 3 2]] [truple [1 4 3] unuple [2]] [duple [1 4] duple [3 2]] ]] if :p = (list 1 4 3 3) [run pick [ [unuple [1] truple [4 3 3]] [truple [1 4 3] unuple [3]] [duple [1 4] duple [3 3]] ]] if :p = (list 1 4 3 4) [run pick [ [unuple [1] truple [4 3 4]] [truple [1 4 3] unuple [4]] [duple [1 4] duple [3 4]] ]] if :p = (list 1 4 4 1) [run pick [ [unuple [1] truple [4 4 1]] [truple [1 4 4] unuple [1]] [duple [1 4] duple [4 1]] ]] if :p = (list 1 4 4 2) [run pick [ [unuple [1] truple [4 4 2]] [truple [1 4 4] unuple [2]] [duple [1 4] duple [4 2]] ]] if :p = (list 1 4 4 3) [run pick [ [unuple [1] truple [4 4 3]] [truple [1 4 4] unuple [3]] [duple [1 4] duple [4 3]] ]] if :p = (list 1 4 4 4) [run pick [ [unuple [1] truple [4 4 4]] [truple [1 4 4] unuple [4]] [duple [1 4] duple [4 4]] ]] if :p = (list 2 1 1 1) [run pick [ [unuple [2] truple [1 1 1]] [truple [2 1 1] unuple [1]] [duple [2 1] duple [1 1]] ]] if :p = (list 2 1 1 2) [run pick [ [unuple [2] truple [1 1 2]] [truple [2 1 1] unuple [2]] [duple [2 1] duple [1 2]] ]] if :p = (list 2 1 1 3) [run pick [ [unuple [2] truple [1 1 3]] [truple [2 1 1] unuple [3]] [duple [2 1] duple [1 3]] ]] if :p = (list 2 1 1 4) [run pick [ [unuple [2] truple [1 1 4]] [truple [2 1 1] unuple [4]] [duple [2 1] duple [1 4]] ]] if :p = (list 2 1 2 1) [run pick [ [unuple [2] truple [1 2 1]] [truple [2 1 2] unuple [1]] [duple [2 1] duple [2 1]] ]] if :p = (list 2 1 2 2) [run pick [ [unuple [2] truple [1 2 2]] [truple [2 1 2] unuple [2]] [duple [2 1] duple [2 2]] ]] if :p = (list 2 1 2 3) [run pick [ [unuple [2] truple [1 2 3]] [truple [2 1 2] unuple [3]] [duple [2 1] duple [2 3]] ]] if :p = (list 2 1 2 4) [run pick [ [unuple [2] truple [1 2 4]] [truple [2 1 2] unuple [4]] [duple [2 1] duple [2 4]] ]] if :p = (list 2 1 3 1) [run pick [ [unuple [2] truple [1 3 1]] [truple [2 1 3] unuple [1]] [duple [2 1] duple [3 1]] ]] if :p = (list 2 1 3 2) [run pick [ [unuple [2] truple [1 3 2]] [truple [2 1 3] unuple [2]] [duple [2 1] duple [3 2]] ]] if :p = (list 2 1 3 3) [run pick [ [unuple [2] truple [1 3 3]] [truple [2 1 3] unuple [3]] [duple [2 1] duple [3 3]] ]] if :p = (list 2 1 3 4) [run pick [ [unuple [2] truple [1 3 4]] [truple [2 1 3] unuple [4]] [duple [2 1] duple [3 4]] ]] if :p = (list 2 1 4 1) [run pick [ [unuple [2] truple [1 4 1]] [truple [2 1 4] unuple [1]] [duple [2 1] duple [4 1]] ]] if :p = (list 2 1 4 2) [run pick [ [unuple [2] truple [1 4 2]] [truple [2 1 4] unuple [2]] [duple [2 1] duple [4 2]] ]] if :p = (list 2 1 4 3) [run pick [ [unuple [2] truple [1 4 3]] [truple [2 1 4] unuple [3]] [duple [2 1] duple [4 3]] ]] if :p = (list 2 1 4 4) [run pick [ [unuple [2] truple [1 4 4]] [truple [2 1 4] unuple [4]] [duple [2 1] duple [4 4]] ]] if :p = (list 2 2 1 1) [run pick [ [unuple [2] truple [2 1 1]] [truple [2 2 1] unuple [1]] [duple [2 2] duple [1 1]] ]] if :p = (list 2 2 1 2) [run pick [ [unuple [2] truple [2 1 2]] [truple [2 2 1] unuple [2]] [duple [2 2] duple [1 2]] ]] if :p = (list 2 2 1 3) [run pick [ [unuple [2] truple [2 1 3]] [truple [2 2 1] unuple [3]] [duple [2 2] duple [1 3]] ]] if :p = (list 2 2 1 4) [run pick [ [unuple [2] truple [2 1 4]] [truple [2 2 1] unuple [4]] [duple [2 2] duple [1 4]] ]] if :p = (list 2 2 2 1) [run pick [ [unuple [2] truple [2 2 1]] [truple [2 2 2] unuple [1]] [duple [2 2] duple [2 1]] ]] if :p = (list 2 2 2 2) [run pick [ [unuple [2] truple [2 2 2]] [truple [2 2 2] unuple [2]] [duple [2 2] duple [2 2]] ]] if :p = (list 2 2 2 3) [run pick [ [unuple [2] truple [2 2 3]] [truple [2 2 2] unuple [3]] [duple [2 2] duple [2 3]] ]] if :p = (list 2 2 2 4) [run pick [ [unuple [2] truple [2 2 4]] [truple [2 2 2] unuple [4]] [duple [2 2] duple [2 4]] ]] if :p = (list 2 2 3 1) [run pick [ [unuple [2] truple [2 3 1]] [truple [2 2 3] unuple [1]] [duple [2 2] duple [3 1]] ]] if :p = (list 2 2 3 2) [run pick [ [unuple [2] truple [2 3 2]] [truple [2 2 3] unuple [2]] [duple [2 2] duple [3 2]] ]] if :p = (list 2 2 3 3) [run pick [ [unuple [2] truple [2 3 3]] [truple [2 2 3] unuple [3]] [duple [2 2] duple [3 3]] ]] if :p = (list 2 2 3 4) [run pick [ [unuple [2] truple [2 3 4]] [truple [2 2 3] unuple [4]] [duple [2 2] duple [3 4]] ]] if :p = (list 2 2 4 1) [run pick [ [unuple [2] truple [2 4 1]] [truple [2 2 4] unuple [1]] [duple [2 2] duple [4 1]] ]] if :p = (list 2 2 4 2) [run pick [ [unuple [2] truple [2 4 2]] [truple [2 2 4] unuple [2]] [duple [2 2] duple [4 2]] ]] if :p = (list 2 2 4 3) [run pick [ [unuple [2] truple [2 4 3]] [truple [2 2 4] unuple [3]] [duple [2 2] duple [4 3]] ]] if :p = (list 2 2 4 4) [run pick [ [unuple [2] truple [2 4 4]] [truple [2 2 4] unuple [4]] [duple [2 2] duple [4 4]] ]] if :p = (list 2 3 1 1) [run pick [ [unuple [2] truple [3 1 1]] [truple [2 3 1] unuple [1]] [duple [2 3] duple [1 1]] ]] if :p = (list 2 3 1 2) [run pick [ [unuple [2] truple [3 1 2]] [truple [2 3 1] unuple [2]] [duple [2 3] duple [1 2]] ]] if :p = (list 2 3 1 3) [run pick [ [unuple [2] truple [3 1 3]] [truple [2 3 1] unuple [3]] [duple [2 3] duple [1 3]] ]] if :p = (list 2 3 1 4) [run pick [ [unuple [2] truple [3 1 4]] [truple [2 3 1] unuple [4]] [duple [2 3] duple [1 4]] ]] if :p = (list 2 3 2 1) [run pick [ [unuple [2] truple [3 2 1]] [truple [2 3 2] unuple [1]] [duple [2 3] duple [2 1]] ]] if :p = (list 2 3 2 2) [run pick [ [unuple [2] truple [3 2 2]] [truple [2 3 2] unuple [2]] [duple [2 3] duple [2 2]] ]] if :p = (list 2 3 2 3) [run pick [ [unuple [2] truple [3 2 3]] [truple [2 3 2] unuple [3]] [duple [2 3] duple [2 3]] ]] if :p = (list 2 3 2 4) [run pick [ [unuple [2] truple [3 2 4]] [truple [2 3 2] unuple [4]] [duple [2 3] duple [2 4]] ]] if :p = (list 2 3 3 1) [run pick [ [unuple [2] truple [3 3 1]] [truple [2 3 3] unuple [1]] [duple [2 3] duple [3 1]] ]] if :p = (list 2 3 3 2) [run pick [ [unuple [2] truple [3 3 2]] [truple [2 3 3] unuple [2]] [duple [2 3] duple [3 2]] ]] if :p = (list 2 3 3 3) [run pick [ [unuple [2] truple [3 3 3]] [truple [2 3 3] unuple [3]] [duple [2 3] duple [3 3]] ]] if :p = (list 2 3 3 4) [run pick [ [unuple [2] truple [3 3 4]] [truple [2 3 3] unuple [4]] [duple [2 3] duple [3 4]] ]] if :p = (list 2 3 4 1) [run pick [ [unuple [2] truple [3 4 1]] [truple [2 3 4] unuple [1]] [duple [2 3] duple [4 1]] ]] if :p = (list 2 3 4 2) [run pick [ [unuple [2] truple [3 4 2]] [truple [2 3 4] unuple [2]] [duple [2 3] duple [4 2]] ]] if :p = (list 2 3 4 3) [run pick [ [unuple [2] truple [3 4 3]] [truple [2 3 4] unuple [3]] [duple [2 3] duple [4 3]] ]] if :p = (list 2 3 4 4) [run pick [ [unuple [2] truple [3 4 4]] [truple [2 3 4] unuple [4]] [duple [2 3] duple [4 4]] ]] if :p = (list 2 4 1 1) [run pick [ [unuple [2] truple [4 1 1]] [truple [2 4 1] unuple [1]] [duple [2 4] duple [1 1]] ]] if :p = (list 2 4 1 2) [run pick [ [unuple [2] truple [4 1 2]] [truple [2 4 1] unuple [2]] [duple [2 4] duple [1 2]] ]] if :p = (list 2 4 1 3) [run pick [ [unuple [2] truple [4 1 3]] [truple [2 4 1] unuple [3]] [duple [2 4] duple [1 3]] ]] if :p = (list 2 4 1 4) [run pick [ [unuple [2] truple [4 1 4]] [truple [2 4 1] unuple [4]] [duple [2 4] duple [1 4]] ]] if :p = (list 2 4 2 1) [run pick [ [unuple [2] truple [4 2 1]] [truple [2 4 2] unuple [1]] [duple [2 4] duple [2 1]] ]] if :p = (list 2 4 2 2) [run pick [ [unuple [2] truple [4 2 2]] [truple [2 4 2] unuple [2]] [duple [2 4] duple [2 2]] ]] if :p = (list 2 4 2 3) [run pick [ [unuple [2] truple [4 2 3]] [truple [2 4 2] unuple [3]] [duple [2 4] duple [2 3]] ]] if :p = (list 2 4 2 4) [run pick [ [unuple [2] truple [4 2 4]] [truple [2 4 2] unuple [4]] [duple [2 4] duple [2 4]] ]] if :p = (list 2 4 3 1) [run pick [ [unuple [2] truple [4 3 1]] [truple [2 4 3] unuple [1]] [duple [2 4] duple [3 1]] ]] if :p = (list 2 4 3 2) [run pick [ [unuple [2] truple [4 3 2]] [truple [2 4 3] unuple [2]] [duple [2 4] duple [3 2]] ]] if :p = (list 2 4 3 3) [run pick [ [unuple [2] truple [4 3 3]] [truple [2 4 3] unuple [3]] [duple [2 4] duple [3 3]] ]] if :p = (list 2 4 3 4) [run pick [ [unuple [2] truple [4 3 4]] [truple [2 4 3] unuple [4]] [duple [2 4] duple [3 4]] ]] if :p = (list 2 4 4 1) [run pick [ [unuple [2] truple [4 4 1]] [truple [2 4 4] unuple [1]] [duple [2 4] duple [4 1]] ]] if :p = (list 2 4 4 2) [run pick [ [unuple [2] truple [4 4 2]] [truple [2 4 4] unuple [2]] [duple [2 4] duple [4 2]] ]] if :p = (list 2 4 4 3) [run pick [ [unuple [2] truple [4 4 3]] [truple [2 4 4] unuple [3]] [duple [2 4] duple [4 3]] ]] if :p = (list 2 4 4 4) [run pick [ [unuple [2] truple [4 4 4]] [truple [2 4 4] unuple [4]] [duple [2 4] duple [4 4]] ]] if :p = (list 3 1 1 1) [run pick [ [unuple [3] truple [1 1 1]] [truple [3 1 1] unuple [1]] [duple [3 1] duple [1 1]] ]] if :p = (list 3 1 1 2) [run pick [ [unuple [3] truple [1 1 2]] [truple [3 1 1] unuple [2]] [duple [3 1] duple [1 2]] ]] if :p = (list 3 1 1 3) [run pick [ [unuple [3] truple [1 1 3]] [truple [3 1 1] unuple [3]] [duple [3 1] duple [1 3]] ]] if :p = (list 3 1 1 4) [run pick [ [unuple [3] truple [1 1 4]] [truple [3 1 1] unuple [4]] [duple [3 1] duple [1 4]] ]] if :p = (list 3 1 2 1) [run pick [ [unuple [3] truple [1 2 1]] [truple [3 1 2] unuple [1]] [duple [3 1] duple [2 1]] ]] if :p = (list 3 1 2 2) [run pick [ [unuple [3] truple [1 2 2]] [truple [3 1 2] unuple [2]] [duple [3 1] duple [2 2]] ]] if :p = (list 3 1 2 3) [run pick [ [unuple [3] truple [1 2 3]] [truple [3 1 2] unuple [3]] [duple [3 1] duple [2 3]] ]] if :p = (list 3 1 2 4) [run pick [ [unuple [3] truple [1 2 4]] [truple [3 1 2] unuple [4]] [duple [3 1] duple [2 4]] ]] if :p = (list 3 1 3 1) [run pick [ [unuple [3] truple [1 3 1]] [truple [3 1 3] unuple [1]] [duple [3 1] duple [3 1]] ]] if :p = (list 3 1 3 2) [run pick [ [unuple [3] truple [1 3 2]] [truple [3 1 3] unuple [2]] [duple [3 1] duple [3 2]] ]] if :p = (list 3 1 3 3) [run pick [ [unuple [3] truple [1 3 3]] [truple [3 1 3] unuple [3]] [duple [3 1] duple [3 3]] ]] if :p = (list 3 1 3 4) [run pick [ [unuple [3] truple [1 3 4]] [truple [3 1 3] unuple [4]] [duple [3 1] duple [3 4]] ]] if :p = (list 3 1 4 1) [run pick [ [unuple [3] truple [1 4 1]] [truple [3 1 4] unuple [1]] [duple [3 1] duple [4 1]] ]] if :p = (list 3 1 4 2) [run pick [ [unuple [3] truple [1 4 2]] [truple [3 1 4] unuple [2]] [duple [3 1] duple [4 2]] ]] if :p = (list 3 1 4 3) [run pick [ [unuple [3] truple [1 4 3]] [truple [3 1 4] unuple [3]] [duple [3 1] duple [4 3]] ]] if :p = (list 3 1 4 4) [run pick [ [unuple [3] truple [1 4 4]] [truple [3 1 4] unuple [4]] [duple [3 1] duple [4 4]] ]] if :p = (list 3 2 1 1) [run pick [ [unuple [3] truple [2 1 1]] [truple [3 2 1] unuple [1]] [duple [3 2] duple [1 1]] ]] if :p = (list 3 2 1 2) [run pick [ [unuple [3] truple [2 1 2]] [truple [3 2 1] unuple [2]] [duple [3 2] duple [1 2]] ]] if :p = (list 3 2 1 3) [run pick [ [unuple [3] truple [2 1 3]] [truple [3 2 1] unuple [3]] [duple [3 2] duple [1 3]] ]] if :p = (list 3 2 1 4) [run pick [ [unuple [3] truple [2 1 4]] [truple [3 2 1] unuple [4]] [duple [3 2] duple [1 4]] ]] if :p = (list 3 2 2 1) [run pick [ [unuple [3] truple [2 2 1]] [truple [3 2 2] unuple [1]] [duple [3 2] duple [2 1]] ]] if :p = (list 3 2 2 2) [run pick [ [unuple [3] truple [2 2 2]] [truple [3 2 2] unuple [2]] [duple [3 2] duple [2 2]] ]] if :p = (list 3 2 2 3) [run pick [ [unuple [3] truple [2 2 3]] [truple [3 2 2] unuple [3]] [duple [3 2] duple [2 3]] ]] if :p = (list 3 2 2 4) [run pick [ [unuple [3] truple [2 2 4]] [truple [3 2 2] unuple [4]] [duple [3 2] duple [2 4]] ]] if :p = (list 3 2 3 1) [run pick [ [unuple [3] truple [2 3 1]] [truple [3 2 3] unuple [1]] [duple [3 2] duple [3 1]] ]] if :p = (list 3 2 3 2) [run pick [ [unuple [3] truple [2 3 2]] [truple [3 2 3] unuple [2]] [duple [3 2] duple [3 2]] ]] if :p = (list 3 2 3 3) [run pick [ [unuple [3] truple [2 3 3]] [truple [3 2 3] unuple [3]] [duple [3 2] duple [3 3]] ]] if :p = (list 3 2 3 4) [run pick [ [unuple [3] truple [2 3 4]] [truple [3 2 3] unuple [4]] [duple [3 2] duple [3 4]] ]] if :p = (list 3 2 4 1) [run pick [ [unuple [3] truple [2 4 1]] [truple [3 2 4] unuple [1]] [duple [3 2] duple [4 1]] ]] if :p = (list 3 2 4 2) [run pick [ [unuple [3] truple [2 4 2]] [truple [3 2 4] unuple [2]] [duple [3 2] duple [4 2]] ]] if :p = (list 3 2 4 3) [run pick [ [unuple [3] truple [2 4 3]] [truple [3 2 4] unuple [3]] [duple [3 2] duple [4 3]] ]] if :p = (list 3 2 4 4) [run pick [ [unuple [3] truple [2 4 4]] [truple [3 2 4] unuple [4]] [duple [3 2] duple [4 4]] ]] if :p = (list 3 3 1 1) [run pick [ [unuple [3] truple [3 1 1]] [truple [3 3 1] unuple [1]] [duple [3 3] duple [1 1]] ]] if :p = (list 3 3 1 2) [run pick [ [unuple [3] truple [3 1 2]] [truple [3 3 1] unuple [2]] [duple [3 3] duple [1 2]] ]] if :p = (list 3 3 1 3) [run pick [ [unuple [3] truple [3 1 3]] [truple [3 3 1] unuple [3]] [duple [3 3] duple [1 3]] ]] if :p = (list 3 3 1 4) [run pick [ [unuple [3] truple [3 1 4]] [truple [3 3 1] unuple [4]] [duple [3 3] duple [1 4]] ]] if :p = (list 3 3 2 1) [run pick [ [unuple [3] truple [3 2 1]] [truple [3 3 2] unuple [1]] [duple [3 3] duple [2 1]] ]] if :p = (list 3 3 2 2) [run pick [ [unuple [3] truple [3 2 2]] [truple [3 3 2] unuple [2]] [duple [3 3] duple [2 2]] ]] if :p = (list 3 3 2 3) [run pick [ [unuple [3] truple [3 2 3]] [truple [3 3 2] unuple [3]] [duple [3 3] duple [2 3]] ]] if :p = (list 3 3 2 4) [run pick [ [unuple [3] truple [3 2 4]] [truple [3 3 2] unuple [4]] [duple [3 3] duple [2 4]] ]] if :p = (list 3 3 3 1) [run pick [ [unuple [3] truple [3 3 1]] [truple [3 3 3] unuple [1]] [duple [3 3] duple [3 1]] ]] if :p = (list 3 3 3 2) [run pick [ [unuple [3] truple [3 3 2]] [truple [3 3 3] unuple [2]] [duple [3 3] duple [3 2]] ]] if :p = (list 3 3 3 3) [run pick [ [unuple [3] truple [3 3 3]] [truple [3 3 3] unuple [3]] [duple [3 3] duple [3 3]] ]] if :p = (list 3 3 3 4) [run pick [ [unuple [3] truple [3 3 4]] [truple [3 3 3] unuple [4]] [duple [3 3] duple [3 4]] ]] if :p = (list 3 3 4 1) [run pick [ [unuple [3] truple [3 4 1]] [truple [3 3 4] unuple [1]] [duple [3 3] duple [4 1]] ]] if :p = (list 3 3 4 2) [run pick [ [unuple [3] truple [3 4 2]] [truple [3 3 4] unuple [2]] [duple [3 3] duple [4 2]] ]] if :p = (list 3 3 4 3) [run pick [ [unuple [3] truple [3 4 3]] [truple [3 3 4] unuple [3]] [duple [3 3] duple [4 3]] ]] if :p = (list 3 3 4 4) [run pick [ [unuple [3] truple [3 4 4]] [truple [3 3 4] unuple [4]] [duple [3 3] duple [4 4]] ]] if :p = (list 3 4 1 1) [run pick [ [unuple [3] truple [4 1 1]] [truple [3 4 1] unuple [1]] [duple [3 4] duple [1 1]] ]] if :p = (list 3 4 1 2) [run pick [ [unuple [3] truple [4 1 2]] [truple [3 4 1] unuple [2]] [duple [3 4] duple [1 2]] ]] if :p = (list 3 4 1 3) [run pick [ [unuple [3] truple [4 1 3]] [truple [3 4 1] unuple [3]] [duple [3 4] duple [1 3]] ]] if :p = (list 3 4 1 4) [run pick [ [unuple [3] truple [4 1 4]] [truple [3 4 1] unuple [4]] [duple [3 4] duple [1 4]] ]] if :p = (list 3 4 2 1) [run pick [ [unuple [3] truple [4 2 1]] [truple [3 4 2] unuple [1]] [duple [3 4] duple [2 1]] ]] if :p = (list 3 4 2 2) [run pick [ [unuple [3] truple [4 2 2]] [truple [3 4 2] unuple [2]] [duple [3 4] duple [2 2]] ]] if :p = (list 3 4 2 3) [run pick [ [unuple [3] truple [4 2 3]] [truple [3 4 2] unuple [3]] [duple [3 4] duple [2 3]] ]] if :p = (list 3 4 2 4) [run pick [ [unuple [3] truple [4 2 4]] [truple [3 4 2] unuple [4]] [duple [3 4] duple [2 4]] ]] if :p = (list 3 4 3 1) [run pick [ [unuple [3] truple [4 3 1]] [truple [3 4 3] unuple [1]] [duple [3 4] duple [3 1]] ]] if :p = (list 3 4 3 2) [run pick [ [unuple [3] truple [4 3 2]] [truple [3 4 3] unuple [2]] [duple [3 4] duple [3 2]] ]] if :p = (list 3 4 3 3) [run pick [ [unuple [3] truple [4 3 3]] [truple [3 4 3] unuple [3]] [duple [3 4] duple [3 3]] ]] if :p = (list 3 4 3 4) [run pick [ [unuple [3] truple [4 3 4]] [truple [3 4 3] unuple [4]] [duple [3 4] duple [3 4]] ]] if :p = (list 3 4 4 1) [run pick [ [unuple [3] truple [4 4 1]] [truple [3 4 4] unuple [1]] [duple [3 4] duple [4 1]] ]] if :p = (list 3 4 4 2) [run pick [ [unuple [3] truple [4 4 2]] [truple [3 4 4] unuple [2]] [duple [3 4] duple [4 2]] ]] if :p = (list 3 4 4 3) [run pick [ [unuple [3] truple [4 4 3]] [truple [3 4 4] unuple [3]] [duple [3 4] duple [4 3]] ]] if :p = (list 3 4 4 4) [run pick [ [unuple [3] truple [4 4 4]] [truple [3 4 4] unuple [4]] [duple [3 4] duple [4 4]] ]] if :p = (list 4 1 1 1) [run pick [ [unuple [4] truple [1 1 1]] [truple [4 1 1] unuple [1]] [duple [4 1] duple [1 1]] ]] if :p = (list 4 1 1 2) [run pick [ [unuple [4] truple [1 1 2]] [truple [4 1 1] unuple [2]] [duple [4 1] duple [1 2]] ]] if :p = (list 4 1 1 3) [run pick [ [unuple [4] truple [1 1 3]] [truple [4 1 1] unuple [3]] [duple [4 1] duple [1 3]] ]] if :p = (list 4 1 1 4) [run pick [ [unuple [4] truple [1 1 4]] [truple [4 1 1] unuple [4]] [duple [4 1] duple [1 4]] ]] if :p = (list 4 1 2 1) [run pick [ [unuple [4] truple [1 2 1]] [truple [4 1 2] unuple [1]] [duple [4 1] duple [2 1]] ]] if :p = (list 4 1 2 2) [run pick [ [unuple [4] truple [1 2 2]] [truple [4 1 2] unuple [2]] [duple [4 1] duple [2 2]] ]] if :p = (list 4 1 2 3) [run pick [ [unuple [4] truple [1 2 3]] [truple [4 1 2] unuple [3]] [duple [4 1] duple [2 3]] ]] if :p = (list 4 1 2 4) [run pick [ [unuple [4] truple [1 2 4]] [truple [4 1 2] unuple [4]] [duple [4 1] duple [2 4]] ]] if :p = (list 4 1 3 1) [run pick [ [unuple [4] truple [1 3 1]] [truple [4 1 3] unuple [1]] [duple [4 1] duple [3 1]] ]] if :p = (list 4 1 3 2) [run pick [ [unuple [4] truple [1 3 2]] [truple [4 1 3] unuple [2]] [duple [4 1] duple [3 2]] ]] if :p = (list 4 1 3 3) [run pick [ [unuple [4] truple [1 3 3]] [truple [4 1 3] unuple [3]] [duple [4 1] duple [3 3]] ]] if :p = (list 4 1 3 4) [run pick [ [unuple [4] truple [1 3 4]] [truple [4 1 3] unuple [4]] [duple [4 1] duple [3 4]] ]] if :p = (list 4 1 4 1) [run pick [ [unuple [4] truple [1 4 1]] [truple [4 1 4] unuple [1]] [duple [4 1] duple [4 1]] ]] if :p = (list 4 1 4 2) [run pick [ [unuple [4] truple [1 4 2]] [truple [4 1 4] unuple [2]] [duple [4 1] duple [4 2]] ]] if :p = (list 4 1 4 3) [run pick [ [unuple [4] truple [1 4 3]] [truple [4 1 4] unuple [3]] [duple [4 1] duple [4 3]] ]] if :p = (list 4 1 4 4) [run pick [ [unuple [4] truple [1 4 4]] [truple [4 1 4] unuple [4]] [duple [4 1] duple [4 4]] ]] if :p = (list 4 2 1 1) [run pick [ [unuple [4] truple [2 1 1]] [truple [4 2 1] unuple [1]] [duple [4 2] duple [1 1]] ]] if :p = (list 4 2 1 2) [run pick [ [unuple [4] truple [2 1 2]] [truple [4 2 1] unuple [2]] [duple [4 2] duple [1 2]] ]] if :p = (list 4 2 1 3) [run pick [ [unuple [4] truple [2 1 3]] [truple [4 2 1] unuple [3]] [duple [4 2] duple [1 3]] ]] if :p = (list 4 2 1 4) [run pick [ [unuple [4] truple [2 1 4]] [truple [4 2 1] unuple [4]] [duple [4 2] duple [1 4]] ]] if :p = (list 4 2 2 1) [run pick [ [unuple [4] truple [2 2 1]] [truple [4 2 2] unuple [1]] [duple [4 2] duple [2 1]] ]] if :p = (list 4 2 2 2) [run pick [ [unuple [4] truple [2 2 2]] [truple [4 2 2] unuple [2]] [duple [4 2] duple [2 2]] ]] if :p = (list 4 2 2 3) [run pick [ [unuple [4] truple [2 2 3]] [truple [4 2 2] unuple [3]] [duple [4 2] duple [2 3]] ]] if :p = (list 4 2 2 4) [run pick [ [unuple [4] truple [2 2 4]] [truple [4 2 2] unuple [4]] [duple [4 2] duple [2 4]] ]] if :p = (list 4 2 3 1) [run pick [ [unuple [4] truple [2 3 1]] [truple [4 2 3] unuple [1]] [duple [4 2] duple [3 1]] ]] if :p = (list 4 2 3 2) [run pick [ [unuple [4] truple [2 3 2]] [truple [4 2 3] unuple [2]] [duple [4 2] duple [3 2]] ]] if :p = (list 4 2 3 3) [run pick [ [unuple [4] truple [2 3 3]] [truple [4 2 3] unuple [3]] [duple [4 2] duple [3 3]] ]] if :p = (list 4 2 3 4) [run pick [ [unuple [4] truple [2 3 4]] [truple [4 2 3] unuple [4]] [duple [4 2] duple [3 4]] ]] if :p = (list 4 2 4 1) [run pick [ [unuple [4] truple [2 4 1]] [truple [4 2 4] unuple [1]] [duple [4 2] duple [4 1]] ]] if :p = (list 4 2 4 2) [run pick [ [unuple [4] truple [2 4 2]] [truple [4 2 4] unuple [2]] [duple [4 2] duple [4 2]] ]] if :p = (list 4 2 4 3) [run pick [ [unuple [4] truple [2 4 3]] [truple [4 2 4] unuple [3]] [duple [4 2] duple [4 3]] ]] if :p = (list 4 2 4 4) [run pick [ [unuple [4] truple [2 4 4]] [truple [4 2 4] unuple [4]] [duple [4 2] duple [4 4]] ]] if :p = (list 4 3 1 1) [run pick [ [unuple [4] truple [3 1 1]] [truple [4 3 1] unuple [1]] [duple [4 3] duple [1 1]] ]] if :p = (list 4 3 1 2) [run pick [ [unuple [4] truple [3 1 2]] [truple [4 3 1] unuple [2]] [duple [4 3] duple [1 2]] ]] if :p = (list 4 3 1 3) [run pick [ [unuple [4] truple [3 1 3]] [truple [4 3 1] unuple [3]] [duple [4 3] duple [1 3]] ]] if :p = (list 4 3 1 4) [run pick [ [unuple [4] truple [3 1 4]] [truple [4 3 1] unuple [4]] [duple [4 3] duple [1 4]] ]] if :p = (list 4 3 2 1) [run pick [ [unuple [4] truple [3 2 1]] [truple [4 3 2] unuple [1]] [duple [4 3] duple [2 1]] ]] if :p = (list 4 3 2 2) [run pick [ [unuple [4] truple [3 2 2]] [truple [4 3 2] unuple [2]] [duple [4 3] duple [2 2]] ]] if :p = (list 4 3 2 3) [run pick [ [unuple [4] truple [3 2 3]] [truple [4 3 2] unuple [3]] [duple [4 3] duple [2 3]] ]] if :p = (list 4 3 2 4) [run pick [ [unuple [4] truple [3 2 4]] [truple [4 3 2] unuple [4]] [duple [4 3] duple [2 4]] ]] if :p = (list 4 3 3 1) [run pick [ [unuple [4] truple [3 3 1]] [truple [4 3 3] unuple [1]] [duple [4 3] duple [3 1]] ]] if :p = (list 4 3 3 2) [run pick [ [unuple [4] truple [3 3 2]] [truple [4 3 3] unuple [2]] [duple [4 3] duple [3 2]] ]] if :p = (list 4 3 3 3) [run pick [ [unuple [4] truple [3 3 3]] [truple [4 3 3] unuple [3]] [duple [4 3] duple [3 3]] ]] if :p = (list 4 3 3 4) [run pick [ [unuple [4] truple [3 3 4]] [truple [4 3 3] unuple [4]] [duple [4 3] duple [3 4]] ]] if :p = (list 4 3 4 1) [run pick [ [unuple [4] truple [3 4 1]] [truple [4 3 4] unuple [1]] [duple [4 3] duple [4 1]] ]] if :p = (list 4 3 4 2) [run pick [ [unuple [4] truple [3 4 2]] [truple [4 3 4] unuple [2]] [duple [4 3] duple [4 2]] ]] if :p = (list 4 3 4 3) [run pick [ [unuple [4] truple [3 4 3]] [truple [4 3 4] unuple [3]] [duple [4 3] duple [4 3]] ]] if :p = (list 4 3 4 4) [run pick [ [unuple [4] truple [3 4 4]] [truple [4 3 4] unuple [4]] [duple [4 3] duple [4 4]] ]] if :p = (list 4 4 1 1) [run pick [ [unuple [4] truple [4 1 1]] [truple [4 4 1] unuple [1]] [duple [4 4] duple [1 1]] ]] if :p = (list 4 4 1 2) [run pick [ [unuple [4] truple [4 1 2]] [truple [4 4 1] unuple [2]] [duple [4 4] duple [1 2]] ]] if :p = (list 4 4 1 3) [run pick [ [unuple [4] truple [4 1 3]] [truple [4 4 1] unuple [3]] [duple [4 4] duple [1 3]] ]] if :p = (list 4 4 1 4) [run pick [ [unuple [4] truple [4 1 4]] [truple [4 4 1] unuple [4]] [duple [4 4] duple [1 4]] ]] if :p = (list 4 4 2 1) [run pick [ [unuple [4] truple [4 2 1]] [truple [4 4 2] unuple [1]] [duple [4 4] duple [2 1]] ]] if :p = (list 4 4 2 2) [run pick [ [unuple [4] truple [4 2 2]] [truple [4 4 2] unuple [2]] [duple [4 4] duple [2 2]] ]] if :p = (list 4 4 2 3) [run pick [ [unuple [4] truple [4 2 3]] [truple [4 4 2] unuple [3]] [duple [4 4] duple [2 3]] ]] if :p = (list 4 4 2 4) [run pick [ [unuple [4] truple [4 2 4]] [truple [4 4 2] unuple [4]] [duple [4 4] duple [2 4]] ]] if :p = (list 4 4 3 1) [run pick [ [unuple [4] truple [4 3 1]] [truple [4 4 3] unuple [1]] [duple [4 4] duple [3 1]] ]] if :p = (list 4 4 3 2) [run pick [ [unuple [4] truple [4 3 2]] [truple [4 4 3] unuple [2]] [duple [4 4] duple [3 2]] ]] if :p = (list 4 4 3 3) [run pick [ [unuple [4] truple [4 3 3]] [truple [4 4 3] unuple [3]] [duple [4 4] duple [3 3]] ]] if :p = (list 4 4 3 4) [run pick [ [unuple [4] truple [4 3 4]] [truple [4 4 3] unuple [4]] [duple [4 4] duple [3 4]] ]] if :p = (list 4 4 4 1) [run pick [ [unuple [4] truple [4 4 1]] [truple [4 4 4] unuple [1]] [duple [4 4] duple [4 1]] ]] if :p = (list 4 4 4 2) [run pick [ [unuple [4] truple [4 4 2]] [truple [4 4 4] unuple [2]] [duple [4 4] duple [4 2]] ]] if :p = (list 4 4 4 3) [run pick [ [unuple [4] truple [4 4 3]] [truple [4 4 4] unuple [3]] [duple [4 4] duple [4 3]] ]] if :p = (list 4 4 4 4) [run pick [ [unuple [4] truple [4 4 4]] [truple [4 4 4] unuple [4]] [duple [4 4] duple [4 4]] ]] end #==== formulas ==== #formula ajetivin to fa :n if :n = 1 [run pick [[a] [wnt]] ] if :n = 2 [run pick [[k w] [vnt n] [d n]] ] if :n = 3 [run pick [[k v n] [k l a] [q n v] [vda r n]] ] if :n = 4 [run pick [[k v n a] [q n a v] [vda r n a]] ] end #formula averbin to fb :n if :n = 1 [run pick [[b][wnt]]] if :n = 2 [run pick [[p n]]] if :n = 3 [run pick [[p n a] [s n w]]] if :n = 4 [run pick [[p n k w] [p n vnt n] [p n d n] [s n v n] [s n l a]]] end #formula nomal to fn :n if :n = 1 [run pick [[n] [m]] ] if :n = 2 [run pick [[n a] [n wnt]] ] if :n = 3 [run pick [[n k w] [n vnt n] [n d n]] ] if :n = 4 [run pick [[n k v n] [n q n v] [n k l a]]] end #formula verbal to fv :n if :n = 1 [run pick [[fv 1 g2][m fv 1 g1]] ] if :n = 2 [run pick [[l a] [v n]] ] if :n = 3 [run pick [[v n a] [l a b] [w p n]] ] if :n = 4 [run pick [[v n a b] [v n p n] [l a p n]]] end #sujunta o conjunta to soc :n if :n = 1 [run pick [[c] [s]]] end #==== elementos gramatical ==== to a openflow 1 "txt/ajetivo.txt globalmake "parola (sentence pick (readlineflow 1) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "a :sintatica) closeflow 1 end to b openflow 2 "txt/averbo.txt globalmake "parola (sentence pick (readlineflow 2) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "b :sintatica) closeflow 2 end to c openflow 3 "txt/conjunta.txt globalmake "parola (sentence pick (readlineflow 3) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "c :sintatica) closeflow 3 end to d globalmake "parola (sentence "de "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "d :sintatica) end to k globalmake "parola (sentence "ci "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "k :sintatica) end to l openflow 4 "txt/verbo_liante.txt globalmake "parola (sentence pick (list " " " " "no "ia "va "ta "ia\ ta "no\ ia "no\ va "no\ ta "no\ ia\ ta ) pick (readlineflow 4) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "l :sintatica) closeflow 4 end to lnt globalmake "parola (sentence (word pick (list "esente "aspetante "parente "deveninte "restante) ) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "lnt :sintatica) end to m openflow 5 "txt/pronom.txt globalmake "parola (sentence pick (readlineflow 5) "\ ) globalmake "linia lput :parola :linia globalmake "sintatica (lput "m :sintatica) closeflow 5 end to n run pick [ [u openflow 6 "txt/nom.txt globalmake "parola (sentence pick (readlineflow 6) "\ ) closeflow 6 ] [u openflow 7 "txt/nom.txt globalmake "parola (sentence pick (readlineflow 7) "\ ) closeflow 7 ] [us openflow 8 "txt/nom.txt globalmake "parola (sentence (plural pick (readlineflow 8)) "\ ) closeflow 8 ]] globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "n :sintatica) end to p openflow 9 "txt/preposada.txt globalmake "parola (sentence pick (readlineflow 9) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "p :sintatica) closeflow 9 end to q globalmake "parola (sentence "cual "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "q :sintatica) end to r globalmake "parola (sentence "par "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "r :sintatica) end to s openflow 10 "txt/sujunta.txt globalmake "parola (sentence pick (readlineflow 10) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "s :sintatica) closeflow 10 end to u globalmake "parola (sentence pick (list "un "la "un "la "un "la "un "la "alga "tota "cualce "acel "cada "esta "mea "nosa "un\ otra "sua "tua "vosa "zero ) "\ ) globalmake "linia (lput :parola :linia) end to us globalmake "parola (sentence pick (list " "la " "la " "la " "la "alga "tota\ la "multe "poca "acel "cuanto "esta "mea "nosa "otra "sua "tan\ multe "tan\ poca "tota "tro\ multe "tro\ poca "tua "vosa ) "\ ) globalmake "linia (lput :parola :linia) end to v openflow 11 "txt/verbo_transitiva.txt globalmake "parola (sentence pick (list " " " " "no "ia "va "ta "ia\ ta "no\ ia "no\ va "no\ ta "no\ ia\ ta ) pick (readlineflow 11) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "v :sintatica) closeflow 11 end to vda openflow 12 "txt/verbo_transitiva.txt globalmake "parola (sentence (word pick (readlineflow 12) "da) "\ ) globalmake "linia lput :parola :linia globalmake "sintatica (lput "vda :sintatica) closeflow 12 end to vnt openflow 13 "txt/verbo_transitiva.txt globalmake "parola (sentence (word pick (readlineflow 13) "nte) "\ ) globalmake "linia (lput :parola :linia) globalmake "sintatica (lput "vnt :sintatica) closeflow 13 end to w openflow 14 "txt/verbo_nontransitiva.txt globalmake "parola (sentence pick (list " " " " "no "ia "va "ta "ia\ ta "no\ ia "no\ va "no\ ta "no\ ia\ ta ) pick (readlineflow 14) "\ ) globalmake "linia lput :parola :linia globalmake "sintatica (lput "w :sintatica) closeflow 14 end to wnt openflow 16 "txt/verbo_nontransitiva.txt globalmake "parola (sentence (word pick (readlineflow 16) "nte) "\ ) globalmake "linia lput :parola :linia globalmake "sintatica (lput "wnt :sintatica) closeflow 16 end #==== utiles ==== to clui_flue if emptyp listflow [] [ repeat (count listflow) [ closeflow (first first listflow) (last first listflow) ] ] globalmake "linia [] globalmake "sintatica [] end to titulo globalmake "linia [[====]] globalmake "data [] run pick [[fn 1] [fn 2] [fn 3] [fn 4]] globalmake "linia (lput (sentence [====] "\n) :linia) globalmake "sintatica [] openflow 17 "txt/poesia_automata.txt globalmake "data (sentence (word (word du (last date) "/ du (item 2 date) "/ du (first date)) "\ (word du (first time) ": du (item 2 time) ": du (last time)))) globalmake "linia lput :data :linia appendlineflow 17 [] appendlineflow 17 paroli :linia closeflow 17 print paroli :linia globalmake "linia [] end to linia :serie globalmake "linia [] repeat (count :serie) [run item repcount :serie] br openflow 2 "txt/poesia_automata.txt appendlineflow 2 paroli :linia closeflow 2 print paroli :linia end to plural :nom if (or (last :nom)= "a (last :nom)= "e (last :nom)= "i (last :nom)= "o (last :nom)= "u) [output (word :nom "s)] [output (word :nom "es)] end to br globalmake "linia (sentence :linia ") globalmake "sintatica (lput "/ :sintatica) end to br1 globalmake "linia (sentence :linia ",) globalmake "sintatica (lput ",/ :sintatica) end to br2 globalmake "linia (sentence :linia ";) globalmake "sintatica (lput ";/ :sintatica) end to paroli :lista globalmake "parola " repeat (count :lista) [paroli_1 item repcount :lista] output (list :parola "\ ) end to paroli_1 :lista_1 repeat (count :lista_1) [if (or (item repcount :lista_1) = " (item repcount :lista_1) = "\ ) [] [if (or (item repcount :lista_1) = ", (item repcount :lista_1) = ". (item repcount :lista_1) = "! (item repcount :lista_1) = "?) [globalmake "parola (word :parola (item repcount :lista_1))] [globalmake "parola (word :parola "\ (item repcount :lista_1))] ]] end to du :numero if (count :numero) < 2 [globalmake "sifra word "0 :numero] [globalmake "sifra :numero] output :sifra end to g #g pone virgula globalmake "linia (lput ", :linia) globalmake "sintatica (lput ", :sintatica) end to g1 #g pone punto globalmake "linia (lput ". :linia) globalmake "sintatica (lput ". :sintatica) end to g2 #g pone esclama globalmake "linia (lput "! :linia) globalmake "sintatica (lput "! :sintatica) end to g3 #g pone demanda globalmake "linia (lput "? :linia) globalmake "sintatica (lput "? :sintatica) end