Yauheni Suhakou shiroginne

## lolcat.hs
import Data.Word

freq = 0.3
spread = 8.0

unbase :: Integral int => int -> Word8 -> Word8 -> Word8 -> int
unbase base r g b = (fi r*base+fi g)*base+fi b
    where fi = fromIntegral

-- | Approximate a 24-bit Rgb colour with a colour in the xterm256 6x6x6 colour cube, returning its index.

## gist:1437994
:+1:
:-1:
:airplane:
:art:
:bear:
:beer:
:bike:
:bomb:
:book:
:bulb:
	import Data.Word

	freq = 0.3
	spread = 8.0

	unbase :: Integral int => int -> Word8 -> Word8 -> Word8 -> int
	unbase base r g b = (fi rbase+fi g)base+fi b
	where fi = fromIntegral

	-- \| Approximate a 24-bit Rgb colour with a colour in the xterm256 6x6x6 colour cube, returning its index.