Cast coproduto

I hereby claim:

I am pcstl on github.
I am pcstl (https://keybase.io/pcstl) on keybase.
I have a public key whose fingerprint is 2BB4 9736 2CB4 8AC3 8173 C879 14D9 5A25 D177 6DFC

To claim this, I am signing this object:

	import Html as H exposing (Html)
	import Html.Attributes as A
	import Html.Events as Events
	import Signal exposing (Signal, Address)
	import StartApp.Simple as App

	import List

	options : List String
	options =

	# -- mode: gitignore; --

	# This file was mostly stitched together from a bunch of gitignore files
	# found at https://github.com/github/gitignore and is customized for my
	# OS X setup.

	# Emacs stuff #
	###############
	*~
	\#*\#

	# -- mode: gitignore; --

	# This file was mostly stitched together from a bunch of gitignore files
	# found at https://github.com/github/gitignore and is customized for my
	# Linux setup.

	# Emacs stuff #
	###############
	*~
	\#*\#

	if [ -d $HOME/.dotfiles ]; then
	printf "Dotfiles directory already exists at $HOME/.dotfiles.\n\n"
	printf "If you are sure you wish to restore dotfiles, delete the existing directory.\n\n"
	exit 1
	fi

	git clone --bare https://github.com/pcstl/dotfiles.git $HOME/.dotfiles
	unalias dotfile 2> /dev/null
	dotfile() {
	/usr/bin/git --git-dir=$HOME/.dotfiles/ --work-tree=$HOME $@

	;;Utils------------------------------------------------------
	(defun my/append-to-list (list-var elements)
	"Append ELEMENTS to the end of LIST-VAR.

	The return value is the new value of LIST-VAR."
	(unless (consp elements)
	(error "ELEMENTS must be a list"))
	(let ((list (symbol-value list-var)))
	(if list
	(setcdr (last list) elements)

	# ~/.bashrc: executed by bash(1) for non-login shells.
	# see /usr/share/doc/bash/examples/startup-files (in the package bash-doc)
	# for examples

	# If not running interactively, don't do anything
	case $- in
	i) ;;
	*) return;;
	esac

	function rangeFromZero(end) {
	return [...Array(end).keys()];
	}

	function exclusiveRange(start, end) {
	if (end === undefined) {
	return rangeFromZero(start);
	}
	if (end > start) {
	return rangeFromZero(end - start).map(x => x + start);