dland

Given the module:

import Enum

defmodule D do
    def transpose(t) do
        map(0..count(at(t, 0))-1, fn(x) -> map(t, fn(y) -> at(y, x) end) end)
    end
end

dland

#! /usr/bin/perl -l

use strict;
use utf8;
use open qw( :encoding(UTF-8) :std );

use charnames qw( :full :short );

my $word = "no\N{LATIN SMALL LETTER E WITH DIAERESIS}l";
my $combine = "noe\N{COMBINING DIAERESIS}l";