Problem Statement

Given two strings of different length, determine which string is longer or shorter. Print both strings and their length, one on each line. Print the longer one first. Measure the length of your string in terms of bytes or characters, as appropriate for your language. If your language doesn't have an operator for measuring the length of a string, note it. Given more than two strings: list = ["abcd","123456789","abcdef","1234567"] Show the strings in descending length order.

Let's start with the solution:

#lang transd

MainModule: {
    v: ["abcd","123456789","abcdef","1234567"],

	_start: (λ 
        (for s in (sort v (λ l String() r String() 
                             (ret (< (size r) (size l))))) do 
            (lout width: 10 s " : " (size s) " code points") )
    )
}