# Concatenate and display the second members of two triples.
(
(&(& 1 & "one" & false &)                       # The two triples are paired up.
 &(& 2 & "two" & true &)&)                      # The second triple.
                          (\(& a & b &) ->      # Name the triples "a" and "b".
   (\(& fst & snd & thd &) -> snd) (\choose ->  # function to choose the second member
     ((a choose) (b choose) concat) put         # Carry out the job.
   )
)
)