-module(q).
-export([extract/1]).

extract(L) when list(L) ->
if length(L) > 1 -> L;
true -> extract(lists:nth(1,L))
end.

如果你的意图是“转换”(如无其它元素)，则可以考虑 lists:flatten 。
如果你的意图是“抽取”出其中的 T (有其它元素)，那就只能具体问题具体分析，比如，考虑模式匹配，或搞个循环来解析。

借此机会，对于并行和并发，我也解析一些自己翻译中碰到的困惑。

google 了一下，发现有这么一篇： http://zhidao.baidu.com/question/4923389.html?fr=qrl ，“并发是一个人同时吃三个馒头，并行是三个人同时吃三个馒头”，单从字面上说，并发很有一点“同时发生”的含义，并行则有“同时运行”的含义。这两个词，一个是描述多个程序启动的时刻(如 webserver 需要处理的并发连接)，一个是描述多个程序运行的状况(如 os 中多个都在运行之中的进程)，两者的关系颇为微妙(并发不一定就意味着并行，反之亦然)。但在 programming erlang 中，开篇就有：

The world is parallel.
If we want to write programs that behave as other objects behave in the real world, then these programs will have a concurrent structure.

由此可见，在 erlang 的语境中，“并发”和“并行”这两个词，常被混在一起使用。

对 erlang 来说，同一份程序，在单核的机器上是“一个人同时吃三个馒头”，而在多核的机器上(多于3个核心)，则可能是“三个人同时吃三个馒头”，两者之间的界限已经颇有一些模糊。换句话说，在 erlang 中，由语言本身屏蔽了这种硬件层面上的差别，对于并发和并行，提供的是一个统一的概念体系。

部分术语如去细微区分，可能没有必要。如，并发机制，并发支持，并发进程，并行进程，并行化等。但翻译中，确实应尽量遵循并发(Concurrency)和并行(Parallel)的惯例翻译。