geblist :: [Integer] -> [Integer]
geblist (n:ns)
    | n == 1 = (n:ns)
    | otherwise = geblist (geb n : (n:ns))


geb :: Integer -> Integer
geb n
    | n == 1 = 1
    | odd n  = 3*n + 1
    | otherwise = n `div` 2

gebseq :: Integer -> [Integer]
gebseq n = reverse (geblist [n])

main = print (gebseq 27)

[27,82,41,124,62,31,94,47,142,71,214,107,322,161,484,242,121,364,182,91,274,137,412,206,103,310,155,466,233,700,350,175,526,263,790,395,1186,593,1780,890,445,1336,668,334,167,502,251,754,377,1132,566,283,850,425,1276,638,319,958,479,1438,719,2158,1079,3238,1619,4858,2429,7288,3644,1822,911,2734,1367,4102,2051,6154,3077,9232,4616,2308,1154,577,1732,866,433,1300,650,325,976,488,244,122,61,184,92,46,23,70,35,106,53,160,80,40,20,10,5,16,8,4,2,1]

#!/bin/bash

set -e
set -u


ACTION='no'
FORCE='no'
UPPER='no'
SCRIPT=$(basename "$0")

usage ()
{
cat <<USAGE
Usage: $SCRIPT [options] files...

Renames files to lower or upper case.
Default is to rename to lower case.

Options are:
    -A        Do actual work ($ACTION)
    -F        Force renaming if files exist ($FORCE)
    -u        Rename to upper case instead of lower ($UPPER)

    -h, -?    This help message


Examples:

# $SCRIPT ee/*
mv "ee/RBwrwRW" "ee/rbwrwrw"
mv "ee/УМЦУУкцускцу" "ee/умцуукцускцу"

# $SCRIPT -u ee/*
mv "ee/RBwrwRW" "ee/RBWRWRW"
mv "ee/УМЦУУкцускцу" "ee/УМЦУУКЦУСКЦУ"

USAGE
    exit 0
}

if [ $# == 0 ]; then
    usage
fi

while getopts AFhu? opt; do
    case $opt in
        A) ACTION='yes';;
        F) FORCE='yes';;
        u) UPPER='yes';;
        *) usage;;
    esac
done
shift $(expr  $OPTIND - 1)

if [ "$UPPER" == 'no' ]; then
    sed_cmd='s/[[:upper:]]/\l&/g'
else
    sed_cmd='s/[[:lower:]]/\u&/g'
fi

for p in "$@"; do
    
    d=$(dirname  "$p")
    f=$(basename "$p")

    n=$(echo "$f" | sed "$sed_cmd")

    if [ "$ACTION" == 'yes' ]; then
        if [ -e "$d/$n" ] && [ "$FORCE" != 'yes' ]; then
            echo "File '$n' exists. Use -F to overwrite"
            continue
        else
            mv "$d/$f" "$d/$n"
        fi
    else
        echo "mv \"$d/$f\" \"$d/$n\""
    fi

done

exit 0

    QPixmap pixmap(thumbname);
    QIcon icon(pixmap.scaledToWidth(iconSize().width(), Qt::SmoothTransformation));
    QListWidgetItem *item = new QListWidgetItem(icon, filename);
    addItem(item);

l/cairo-1.8.8-i486-1.txz: Upgraded.
       Firefox 3.5.6 requires a new cairo to fix a bug on Windows. :-/

# dmesg
scsi 19:0:0:0: Direct-Access     Sony     MSAC-UAM1        1.00 PQ: 0 ANSI: 0 CCS
sd 19:0:0:0: [sdc] 124416 512-byte hardware sectors: (63.7 MB/60.7 MiB)
...
scsi 20:0:0:0: Direct-Access     KINGMAX  USB Flash Disk   2.00 PQ: 0 ANSI: 2
sd 20:0:0:0: [sdd] 512000 512-byte hardware sectors: (262 MB/250 MiB)

# mdadm --create /dev/md0 --level 1 --raid-devices 2 /dev/sdc /dev/sdd
mdadm: largest drive (/dev/sdd) exceed size (62144K) by more than 1%
Continue creating array? y
mdadm: array /dev/md0 started.

# mke2fs /dev/md0
mke2fs 1.41.8 (11-July-2009)
Filesystem label=
OS type: Linux
Block size=1024 (log=0)
Fragment size=1024 (log=0)
15552 inodes, 62144 blocks
3107 blocks (5.00%) reserved for the super user
First data block=1
Maximum filesystem blocks=63700992
8 block groups
8192 blocks per group, 8192 fragments per group
1944 inodes per group
Superblock backups stored on blocks: 
	8193, 24577, 40961, 57345

Writing inode tables: done                            
Writing superblocks and filesystem accounting information: done

This filesystem will be automatically checked every 32 mounts or
180 days, whichever comes first.  Use tune2fs -c or -i to override.

# mount /dev/md0 /mnt/tmp/

# dmesg
md: bind
md: bind
md: md0: raid array is not clean -- starting background reconstruction
raid1: raid set md0 active with 2 out of 2 mirrors
md: resync of RAID array md0
md: minimum _guaranteed_  speed: 1000 KB/sec/disk.
md: using maximum available idle IO bandwidth (but not more than 200000 KB/sec) for resync.
md: using 128k window, over a total of 62144 blocks.
 md0:
md: md0: resync done.
RAID1 conf printout:
 --- wd:2 rd:2
 disk 0, wo:0, o:1, dev:sdc
 disk 1, wo:0, o:1, dev:sdd

# touch /mnt/tmp/test
# umount /mnt/tmp
# mdadm --stop /dev/md0

# mdadm --zero-superblock /dev/sdc
# mdadm --zero-superblock /dev/sdd