turanct

(define create-coord
  (lambda (x y)
    (list x y)))

(define get-x
  (lambda (coord)
    (car coord)))

(define get-y
  (lambda (coord)

turanct

#!/usr/bin/env guile -s
!#

(use-modules
  (srfi srfi-1)
  (ice-9 rdelim))

(define words-path "words.txt")

(define random-word-from-file

turanct

import Shop

main = do
    contents <- getContents

    let
        inventory1 = inventoryFromFile contents
        shop1 = Shop "Simon Says" inventory1

    putStrLn $ show shop1

turanct

import Text.ParserCombinators.Parsec

data Query = And Query Query
           | Or Query Query
           | Not Query
           | Statement String deriving (Show)

andParser = do
    arg1 <- statementParser
    string " AND "