tobia

[{"week":"2007-12-31", "val":18848},
{"week":"2008-01-07", "val":18567},
{"week":"2008-01-14", "val":7916},
{"week":"2008-01-21", "val":7337},
{"week":"2008-01-28", "val":-1296},
{"week":"2008-02-04", "val":7038},
{"week":"2008-02-11", "val":3522},
{"week":"2008-02-18", "val":4957},
{"week":"2008-02-25", "val":-6891},
{"week":"2008-03-03", "val":10226},

tobia

(*
Compute all possible Feynman diagrams with 1 el + 1 pos input,
1 el + 1 pos output, 4 nodes, and no self-energetic transitions.
*)
open Core.Std

type particle = Electron | Positron | Photon [@@deriving compare, sexp]

let inverse = function
  | Photon   -> Photon

tobia

:set prompt "\ESC[31;1m\STXλ>\ESC[m\STX "
:set -XOverloadedStrings
:set -XNegativeLiterals
:def pf \str -> return $ ":! pointfree '" ++ str ++ "'"