miikka

# A min-heap.
type
    TNode[T] = tuple[priority: int, data: T]

    TBinHeap[T] = object
        heap: seq[TNode[T]]
        last: int
    
    PBinHeap[T] = ref TBinHeap[T]

miikka

{-# LANGUAGE QuasiQuotes #-}

import Quasi

f [$qq|test|] = True
f _ = False

main = do
    print [$qq|test|]
    print $ f [$qq|test|]

miikka

Name:                snap-helloworld
Version:             0.1
Category:            Web
Build-type:          Simple
Cabal-version:       >=1.6

Executable snap-helloworld
  HS-Source-dirs:    src
  Main-is:           Main.hs
  Other-modules:      

miikka

{-# LANGUAGE PackageImports #-}
{-

    You need to register your Twitter application at <http://dev.twitter.com/>
    to get the consumer key and secret needed for OAuth.  When connecting to
    Twitter for the first time, do this:

        let consumer = Consumer "consumer key" "consumer secret"
        token <- authenticate

miikka

#!/bin/sh

xsel | xmessage -buttons ok:2,not:0 -file - -timeout 4

if [ $? -eq 2 ]; then
	xsel | pk notes -s
fi