相異なる要素からなる系列 seq の要素中 2 個を選んだ組合せをすべて表示し場合の数も表示する関数 (pair seq) で，例えば (pair abcd) が (A B) ; A を選び，残りの B，C，D から B を選んだ組合せ (A C) ; A を選び，残りの B，C，D から C を選んだ組合せ (A D) ; A を選び，残りの B，C，D から D を選んだ組合せ (B C) ; B を選び，残りの C，D から C を選んだ組合せ (B D) ; B を選び，残りの C，D から D を選んだ組合せ (C D) ; C を選び，残りの D から D を選んだ組合せ 6 ; 場合の数 4C2＝4!／{2!×(4-2)!}＝6 のように評価されるものを，必要なら関数 app を用いて定義せよ。
