ヤドカリ自習室(第二倉庫)

2009-12-16

[]問題5.15&問題5.16 08:03

;; レジスタ
(define (make-register name)
  (let ((contents '*unassigned*))
    (define (dispatch message)
      (cond ((eq? message 'get) contents)
            ((eq? message 'set) (lambda (value) (set! contents value)))
            (else (error "Unknown request -- REGISTER" message))))
    dispatch))

(define (get-contents register)
  (register 'get))

(define (set-contents! register value)
  ((register 'set) value))

;; スタック
(define (make-stack)
  (let ((s '())
        (number-pushes 0)
        (max-depth 0)
        (current-depth 0))
    (define (push x)
      (set! s (cons x s))
      (set! number-pushes (+ 1 number-pushes))
      (set! current-depth (+ 1 current-depth))
      (set! max-depth (max current-depth max-depth)))

    (define (pop)
      (if (null? s)
          (error "Empty stack -- POP")
          (let ((top (car s)))
            (set! s (cdr s))
            (set! current-depth (- current-depth 1))
            top)))

    (define (initialize)
      (set! s '())
      (set! number-pushes 0)
      (set! max-depth 0)
      (set! current-depth 0)
      'done)
 
    (define (print-statistics)
      (newline)
      (display (list 'total-pushes  '= number-pushes
                     'maximum-depth '= max-depth)))

    (define (dispatch message)
      (cond ((eq? message 'push)       push)
            ((eq? message 'pop)        (pop))
            ((eq? message 'initialize) (initialize))
            ((eq? message 'print-statistics)
             (print-statistics))
            (else
             (error "Unknown request -- STACK" message))))
    dispatch))

(define (pop stack)
  (stack 'pop))

(define (push stack value)
  ((stack 'push) value))

;; 基本計算機
(define (start machine)
  (machine 'start))

(define (get-register-contents machine register-name)
  (get-contents (get-register machine register-name)))

(define (set-register-contents! machine register-name value)
  (set-contents! (get-register machine register-name) value)
  'done)

(define (get-register machine register-name)
  ((machine 'get-register) register-name))


;; 5.2.2 アセンブラ
(define (make-new-machine)
  (let ((pc (make-register 'pc))
	(flag (make-register 'flag))
	(stack (make-stack))
	(the-instruction-sequence '())
	(information '())
        (insts-count 0)
        (trace-on? #f))
    (let ((the-ops
	   (list (list 'initialize-stack
		       (lambda () (stack 'initialize)))
                 (list 'print-stack-statistics
                       (lambda () (stack 'print-statistics)))))
	  (register-table
	   (list (list 'pc pc) (list 'flag flag))))
 
      (define (allocate-register name)
	(if (assoc name register-table)
	    (error "Multiply defined register: " name)
	    (set! register-table
		  (cons (list name (make-register name))
			register-table)))
	'register-allocated)
      (define (lookup-register name)
	(let ((val (assoc name register-table)))
	  (if val
	      (cadr val)
	      (error "Unknown register: " name))))
      (define (execute)
	(let ((insts (get-contents pc)))
	  (if (null? insts)
	      'done
              (let ((inst (car insts)))
                ((instruction-execution-proc inst))
                (set! insts-count (+ insts-count 1))
                (if trace-on?
                    (begin (display (instruction-text inst))
                           (newline)))
                (execute)))))
      (define (get-goto-reg information)
        (define (iter info result)
          (if (null? info) result
              (if (and (eq? (caar info) 'goto)
                       (eq? (car (cadr (car info))) 'reg))
                  (iter (cdr info) (cons (cadr (cadr (car info))) result))
                  (iter (cdr info) result))))
        (iter information '()))
      (define (get-save-restore-reg information)
        (define (iter info result)
          (if (null? info) result
              (if (or (eq? (caar info) 'save)
                      (eq? (caar info) 'restore))
                  (iter (cdr info) (cons (cadr (car info)) result))
                  (iter (cdr info) result))))
        (remove-duplicates (iter information '())))
      (define (get-assign-source information)
        (define (iter info result)
          (if (null? info) result
              (if (eq? (caar info) 'assign)
                  (iter (cdr info)
                        (cons
                         (if (null? (cdddr (car info)))
                             (cdr (car info))
                             (list (cadr (car info)) (cddr (car info))))
                         result))
                  (iter (cdr info) result))))
        (iter information '()))
      (define (aggregate source)
        (map (lambda (r)
               (cons r
                     (map cadr
                          (filter (lambda (p) (eq? (car p) r)) source))))
             (remove-duplicates (map car source))))
      (define (dispatch message)
	(cond ((eq? message 'start)
	       (set-contents! pc the-instruction-sequence)
	       (execute))
	      ((eq? message 'install-instruction-sequence)
	       (lambda (seq) (set! the-instruction-sequence seq)))
	      ((eq? message 'allocate-register) allocate-register)
	      ((eq? message 'get-register) lookup-register)
	      ((eq? message 'install-operations)
	       (lambda (ops) (set! the-ops (append the-ops ops))))
	      ((eq? message 'stack) stack)
	      ((eq? message 'operations) the-ops)
	      ((eq? message 'install-information)
	       (lambda (info) (set! information (append information info))))
	      ((eq? message 'get-insts-info)
	       information)
              ((eq? message 'get-goto-reg-info)
               (get-goto-reg information))
              ((eq? message 'get-save-restore-reg-info)
               (get-save-restore-reg information))
              ((eq? message 'get-assign-source-info)
               (aggregate (get-assign-source information)))
              ((eq? message 'print-insts-count)
               (begin (display "instruction counting: ")
                      (display insts-count)
                      (set! insts-count 0)
                      (newline)
                      'cleared))
              ((eq? message 'trace-on)
               (set! trace-on? #t))
              ((eq? message 'trace-off)
               (set! trace-on? #f))
              (else (error "Unknown request -- MACHINE" message))))
      dispatch)))

(define (assemble controller-text machine)
  (extract-labels controller-text
    (lambda (insts labels)
      (update-insts! insts labels machine)
      (cons insts (make-information insts)))))

(define (make-machine register-names ops controller-text)
  (let ((machine (make-new-machine)))
    (for-each (lambda (register-name)
		((machine 'allocate-register) register-name))
	      register-names)
    ((machine 'install-operations) ops)
    (let ((assembled (assemble controller-text machine)))
      ((machine 'install-instruction-sequence)
       (car assembled))
      ((machine 'install-information)
       (cdr assembled)))
    machine))

(define (extract-labels text receive)
  (if (null? text)
      (receive '() '())
      (extract-labels
       (cdr text)
       (lambda (insts labels)
         (let ((next-inst (car text)))
           (if (symbol? next-inst)
               (receive insts
                        (cons (make-label-entry next-inst insts)
                              labels))
               (receive (cons (make-instruction next-inst)
                              insts)
                        labels)))))))

(define (update-insts! insts labels machine)
  (let ((pc    (get-register machine 'pc))
        (flag  (get-register machine 'flag))
        (stack (machine 'stack))
        (ops   (machine 'operations)))
    (for-each
     (lambda (inst)
       (set-instruction-execution-proc!
        inst
        (make-execution-procedure
         (instruction-text inst) labels machine
         pc flag stack ops)))
     insts)))

;; constructor for an instruction
(define (make-instruction text)
  (cons text '()))

;; selector(getter) for an instruction
(define (instruction-text inst)
  (car inst))

;; selector(getter) for an instruction
(define (instruction-execution-proc inst)
  (cdr inst))

;; setter for an instruction
(define (set-instruction-execution-proc! inst proc)
  (set-cdr! inst proc))

(define (make-label-entry label-name insts)
  (cons label-name insts))

(define (lookup-label labels label-name)
  (let ((val (assoc label-name labels)))
    (if val
        (cdr val)
        (error "Undefined label -- ASSEMBLE" label-name))))

;; 5.2.3 命令の実行手続きの生成

(define (make-execution-procedure inst labels machine pc flag stack ops)
  (cond ((eq? (car inst) 'assign)
         (make-assign inst machine labels ops pc))

        ((eq? (car inst) 'test)
         (make-test inst machine labels ops flag pc))

        ((eq? (car inst) 'branch)
         (make-branch inst machine labels flag pc))

        ((eq? (car inst) 'goto)
         (make-goto inst machine labels pc))

        ((eq? (car inst) 'save)
         (make-save inst machine stack pc))

        ((eq? (car inst) 'restore)
         (make-restore inst machine stack pc))

        ((eq? (car inst) 'perform)
         (make-perform inst machine labels ops pc))

        (else
         (error "Unknown instruction type -- ASSEMBLE" inst))))


;; assign命令
(define (make-assign inst machine labels operations pc)
  (let ((target (get-register machine (assign-reg-name inst)))
        (value-exp (assign-value-exp inst)))
    (let ((value-proc
           (if (operation-exp? value-exp)
               (make-operation-exp value-exp machine labels operations)
               (make-primitive-exp (car value-exp) machine labels))))
      (lambda ()
        (set-contents! target (value-proc))
        (advance-pc pc)))))

(define (assign-reg-name assign-instruction)
  (cadr assign-instruction))

(define (assign-value-exp assign-instruction)
  (cddr assign-instruction))

(define (advance-pc pc)
  (set-contents! pc (cdr (get-contents pc)))) ; pc には命令列
                                              ; (the-instruction-sequence)
                                              ; が入ってる

;; test, branch および goto命令

(define (make-test inst machine labels operations flag pc)
  (let ((condition (test-condition inst)))
    (if (operation-exp? condition)
        (let ((condition-proc
               (make-operation-exp condition machine labels operations)))
          (lambda ()
            (set-contents! flag (condition-proc))
            (advance-pc pc)))
        (error "Bad TEST instruction -- ASSEMBLE" inst))))

(define (test-condition test-instruction)
  (cdr test-instruction))


(define (make-branch inst machine labels flag pc)
  (let ((dest (branch-dest inst)))
    (if (label-exp? dest)
        (let ((insts
               (lookup-label labels (label-exp-label dest))))
          (lambda ()
            (if (get-contents flag)
                (set-contents! pc insts)
                (advance-pc pc))))
        (error "Bad BRANCH instruction -- ASSEMBLE" inst))))

(define (branch-dest branch-instruction)
  (cadr branch-instruction))


(define (make-goto inst machine labels pc)
  (let ((dest (goto-dest inst)))
    (cond ((label-exp? dest)
           (let ((insts
                  (lookup-label labels (label-exp-label dest))))
             (lambda ()
               (set-contents! pc insts))))
          ((register-exp? dest)
           (let ((reg
                  (get-register machine (register-exp-reg dest))))
             (lambda ()
               (set-contents! pc (get-contents reg)))))
          (else
           (error "Bad GOTO instruction -- ASSEMBLE" inst)))))

(define (goto-dest goto-instruction)
  (cadr goto-instruction))


;; その他の命令
(define (make-save inst machine stack pc)
  (let ((reg (get-register machine (stack-inst-reg-name inst))))
    (lambda ()
      (push stack (get-contents reg))
      (advance-pc pc))))

(define (make-restore inst machine stack pc)
  (let ((reg (get-register machine (stack-inst-reg-name inst))))
    (lambda ()
      (set-contents! reg (pop stack))
      (advance-pc pc))))

(define (stack-inst-reg-name stack-instruction)
  (cadr stack-instruction))


(define (make-perform inst machine labels operations pc)
  (let ((action (perform-action inst)))
    (if (operation-exp? action)
        (let ((action-proc
               (make-operation-exp action machine labels operations)))
          (lambda ()
            (action-proc)
            (advance-pc pc)))
        (error "Bad PERFORM instruction -- ASSEMBLE" inst))))

(define (perform-action inst)
  (cdr inst))


;; 部分式の実行手続き
(define (make-primitive-exp exp machine labels)
  (cond ((constant-exp? exp)
         (let ((c (constant-exp-value exp)))
           (lambda () c)))

        ((label-exp? exp)
         (let ((insts
                (lookup-label labels
                              (label-exp-label exp))))
           (lambda () insts)))
        
        ((register-exp? exp)
         (let ((r
                (get-register machine
                              (register-exp-reg exp))))
           (lambda () (get-contents r))))

        (else (error "Unknown expression type -- ASSEMBLE" exp))))

(define (tagged-list? exp tag)
  (and (pair? exp)
       (eq? (car exp) tag)))

(define (register-exp? exp) (tagged-list? exp 'reg))
(define (register-exp-reg exp) (cadr exp))

(define (constant-exp? exp) (tagged-list? exp 'const))
(define (constant-exp-value exp) (cadr exp))

(define (label-exp? exp) (tagged-list? exp 'label))
(define (label-exp-label exp) (cadr exp))

(define (make-operation-exp exp machine labels operations)
  (let ((op (lookup-prim (operation-exp-op exp) operations))
        (aprocs
         (map (lambda (e)
                (make-primitive-exp e machine labels))
              (operation-exp-operands exp))))
    (lambda ()
      (apply op (map (lambda (p) (p)) aprocs)))))

(define (operation-exp? exp)
  (and (pair? exp) (tagged-list? (car exp) 'op)))
(define (operation-exp-op exp)
  (cadr (car exp)))
(define (operation-exp-operands exp)
  (cdr exp))

(define (lookup-prim symbol operations)
  (let ((val (assoc symbol operations)))
    (if val
        (cadr val)
        (error "Unknown operation -- ASSEMBLE" symbol))))

(define (filter pred lst)
  (cond ((null? lst) '())
        ((pred (car lst))
         (cons (car lst)
               (filter pred (cdr lst))))
        (else (filter pred (cdr lst)))))

(define (remove-duplicates lst)
  (define (iter lst result)
    (if (null? lst) result
        (if (member (car lst) (cdr lst))
            (iter (cdr lst) result)
            (iter (cdr lst) (cons (car lst) result)))))
  (iter lst '()))

(define (make-information insts)
  (let ((insts-text (map instruction-text insts)))
    (apply append
           (map
            (lambda (name)
              (remove-duplicates
               (filter
                (lambda (i) (eq? (car i) name))
                insts-text)))
            '(assign test branch goto save restore perform)))))

(define (get-insts-info machine)
  (machine 'get-insts-info))
(define (get-goto-reg-info machine)
  (machine 'get-goto-reg-info))
(define (get-save-restore-reg-info machine)
  (machine 'get-save-restore-reg-info))
(define (get-assign-source-info machine)
  (machine 'get-assign-source-info))
(define (print-insts-count machine)
  (machine 'print-insts-count))
(define (trace-on machine)
  (machine 'trace-on))
(define (trace-off machine)
  (machine 'trace-off))

(define fib-machine
  (make-machine
   '(n val continue)
   (list (list '< <) (list '- -) (list '+ +))
   '(
       (assign continue (label fib-done))
     fib-loop
       (test (op <) (reg n) (const 2))
       (branch (label immediate-answer))
       ;; set up to compute Fib(n - 1)
       (save continue)
       (assign continue (label afterfib-n-1))
       (save n)                           ; save old value of n
       (assign n (op -) (reg n) (const 1)); clobber n to n - 1
       (goto (label fib-loop))            ; perform recursive call
     afterfib-n-1                         ; upon return, val contains Fib(n - 1)
       (restore n)
       (restore continue)
       ;; set up to compute Fib(n - 2)
       (assign n (op -) (reg n) (const 2))
       (save continue)
       (assign continue (label afterfib-n-2))
       (save val)                         ; save Fib(n - 1)
       (goto (label fib-loop))
     afterfib-n-2                         ; upon return, val contains Fib(n - 2)
       (assign n (reg val))               ; n now contains Fib(n - 2)
       (restore val)                      ; val now contains Fib(n - 1)
       (restore continue)
       (assign val                        ;  Fib(n - 1) +  Fib(n - 2)
               (op +) (reg val) (reg n)) 
     (goto (reg continue))              ; return to caller, answer is in val
     immediate-answer
       (assign val (reg n))               ; base case:  Fib(n) = n
       (goto (reg continue))
     fib-done)))

(define (test-fib-machine)
  (set-register-contents! fib-machine 'n 5)
  (start fib-machine)
  (display (get-register-contents fib-machine 'val))
  (newline)
  (print-insts-count fib-machine))

(define (info-fib-machine)
  (display "instructions: ")
  (display (get-insts-info fib-machine))
  (newline) (newline)
  (display "label registers: ")
  (display (get-goto-reg-info fib-machine))
  (newline)  (newline)
  (display "stacked registers: ")
  (display (get-save-restore-reg-info fib-machine))
  (newline)  (newline)
  (display "assign sources: ")
  (display (get-assign-source-info fib-machine))
  (newline)
  'done)

;;(trace-on fib-machine)
;;(test-fib-machine)

bucbaiswlnbucbaiswln2014/06/02 20:03ibiwutjdq, <a href="http://www.jjmhoxwkbl.com/">yxkvgqsxix</a> , [url=http://www.uabyktuvph.com/]hvxifqveek[/url], http://www.kedrioqvum.com/ yxkvgqsxix

ChasPriodsChasPriods2017/05/10 05:49Levitra Costo In Farmacia Cialis 20 <a href=http://byuvaigranonile.com>viagra</a> Overdose Amoxicillin 3000 Mg Day Cialis 5 Mg Filmtabl 28 St

ShanlekShanlek2017/11/05 21:39Viagra 100mg 12 Preis <a href=http://costofcial.com>buy cialis</a> Priligy Viagra Together

MauNAVAMauNAVA2018/01/28 09:49Finasteride Website 40 For $99 <a href=http://cheapciali.com>online pharmacy</a> Need Plavix From The Uk

GerbedaGerbeda2018/02/08 18:23Viagra Sale Online Buy Viagra Cialis On Line <a href=http://tadalaffbuy.com>viagra cialis</a> Viagra Acidez Estomacal

GerbedaGerbeda2018/02/11 20:02Cialis Once Day Amoxicillin Yogurt Effect <a href=http://brandciali.com>cialis</a> Dramamine Buy Australia

GerbedaGerbeda2018/02/12 05:23Online Canadian Pharmacies <a href=http://brandciali.com>cialis price</a> Hoa To Buy Alli Pills

GerbedaGerbeda2018/02/13 16:46Buy Cheap Propecia Levitra Online Erfahrungen Sore Throat Amoxicillin <a href=http://cialviag.com>online pharmacy</a> Generic V Real Cialis

GerbedaGerbeda2018/02/14 12:48Cialis Precios Farmacia Achat Levitra Au Usa <a href=http://cialviag.com>viagra cialis</a> Prix Viagra Pas Cher

GerbedaGerbeda2018/02/14 22:23Levitra Alkohol Lasix Overnight Shipping Best National Pharmacy <a href=http://buyciali.com>cialis price</a> Clomid 50mg Posologie A Acheter Kamagra Petite Quantite Coreg Fpr Cheap With No Prescription

JacExtildJacExtild2018/02/15 02:28Generic Hydrochlorothiazide Tablet Without Perscription Zithromax Z Pak For Sale <a href=http://buyciali.com>cialis</a> Need Fluoxetine Mastercard Accepted Medication Free Shipping Cialis Internet Canada

GerbedaGerbeda2018/02/15 10:38Proscar Ogame Propecia Cialis Tablets 20mg <a href=http://cialibuy.com>online pharmacy</a> Amoxicillin And Std'S Amoxicillin A Clavulante Potassium Tablets

GerbedaGerbeda2018/02/16 05:46On Line Meds Propecia For Sale Online Pharmacy Finasteride Generique <a href=http://cial20mg.com>cialis</a> Forum Meilleur Site Achat Cialis

GerbedaGerbeda2018/02/17 07:10Association Amoxicillin Cephalosporin <a href=http://cialibuy.com>cialis online</a> Discount Fedex Isotretinoin With Overnight Delivery Medication Overseas Cheap Sex Pills Priligy 30mg Side Effects

GerbedaGerbeda2018/02/18 03:45Levitra Venta Libre <a href=http://ciali5mg.com>cialis buy online</a> Macrobid Buying Overseas

GerbedaGerbeda2018/02/18 16:26Effets Secondaires Viagra 100 Propecia Side Effects Women Cheap Effective Cialis <a href=http://cialiorder.com>cialis buy online</a> Efecto De Kamagra En Jovenes Precio Cialis Espana

GerbedaGerbeda2018/02/19 05:37Expiration Keflex Propecia Folcres Generico Clomid Date Regles <a href=http://cheapciali.com>cialis</a> Viagra Pріт‘ Nett I Sverige

GerbedaGerbeda2018/02/19 14:15Duracion Levitra Where Can I Buy Elavil Cialis Online Ricetta <a href=http://cialiviag.com>cialis</a> Non Prescripion Compazine Viagra Nombre Generico Quiero Comprar Viagra Sin Receta

GerbedaGerbeda2018/02/20 08:05Levitra Senza Ricetta In Farmacia Kamagra Ajanta Pharmaceuticals Cialis 10 Mg Online <a href=http://brandciali.com>cialis</a> Lactating Amoxicillin Nizagara Online Canadian

KelgomiKelgomi2018/04/08 00:50Cialis 20mg Gratis Uk Buy Propecia Keflex A Sulpha Drug <a href=http://cialibuy.com>overnight cialis delivery</a> Kamagra PiРів„– Economico Mono And Amoxicillin

KelgomiKelgomi2018/04/13 20:28Fluoxetine Need Legally Low Price With Free Shipping Levitra Ordering <a href=http://cheapciali.com>cialis ohne rezept</a> Viagra Online Comprar

ShaPrepleShaPreple2018/04/15 18:05Cialis E Psicofarmaci Cialis Ohne Rezept Schweiz <a href=http://cheapciali.com>cialis from canada</a> Online Pharmacies India

MarkEnuctMarkEnuct2018/04/17 05:34erectile enhancement supplements
<a href=http://edpils-gg.com/>solutions to erectile dysfunction</a>
erectile pill as shown on shark tank
<a href="http://edpils-gg.com/">erectile dysfunction pills</a>

HilhaugHilhaug2018/04/17 06:00Cephalexin Clamydia Fedex Viagra Generic <a href=http://cialviag.com>cialis from canada</a> Como Conseguir Viagra Gratis Antabuse Without Prescription

LdrgeGawLdrgeGaw2018/04/17 11:32erectile dementia <a href=http://dc-shuttle.com/>top erectile dysfunction pills</a>
erectile improvement <a href="http://dc-shuttle.com/">buy erectile dysfunction pills</a> http://dc-shuttle.com/

eddrugsgeneric.comeddrugsgeneric.com2018/04/17 18:01low cost erectile treatment
<a href=http://eddrugsgeneric.com/#>herbs for erectile dysfunction</a>
which erectile dysfunction drug is best
<a href="http://eddrugsgeneric.com/#">erection pills</a>

BrcebutBrcebut2018/04/17 22:48generic cialis in vietnam cialis professional from usa
<a href="http://kaivanrosendaal.com/#Cheap-Cialis">Buy Cheap Cialis</a> opinioni cialis generico prix de cialis

EarnestelirmEarnestelirm2018/04/18 07:47men with erectile dysfunction
<a href="http://erectiledysfunctionlq.com/">best erectile dysfunction drug</a>
erectile creams walmart
<a href="http://erectiledysfunctionlq.com/">best erectile dysfunction pills</a>

KoldrBoXyKoldrBoXy2018/04/18 10:02erectile hopeless
<a href=http://edpilsmystery.com/>buy erectile dysfunction pills</a>
is erectile dysfunction covered by insurance
<a href="http://edpilsmystery.com/">ed drugs list</a>

BrcebutBrcebut2018/04/18 17:11venta de cialis canada we use it cialis online store
<a href="http://kaivanrosendaal.com/#Cialis-Cheap-Buy-Online">Buy Cheap Cialis usa</a> buy cialis online cheapest buy cialis uk no prescription

MarkEnuctMarkEnuct2018/04/19 06:45opzioni binarie yahoo answers
<a href="http://platform-binary-best-try-options.pw/option-trading-earnings-announcements-5976.php#">60 second binary options strategy training</a>
binary signals coach review
<a href=http://best-platform-try-binary-options.pw/energy-trading-and-risk-management-jobs-9430.php>different types of binary codes</a>

HrafdcebutHrafdcebut2018/04/19 08:25generic cialis soft tab 50mg overdosering af cialis buy real cialis online usa <a href=http://jvrimages.com/#cialis+canada>doses</a> colour cialis tablets reviews on cialis 50mg cialis occh
<a href=http://jvrimages.com/#tadalafil+generic>cialis cost</a> cheap cialis 150mg on line extenze used with cialis is generic cialis ok
http://jvrimages.com/#callus 50mg cialis paypal uk kamagra cialis jelly uk cialis cialis panorama

MarkEnuctMarkEnuct2018/04/19 20:14levitra headache
<a href="http://levitra-gg.com">levitra 10 mg prezzo</a>
pengalaman levitra vs cialis
<a href=http://myvardenafilok.com#levitra+20mg>buy levitra</a>

HrafdcebutHrafdcebut2018/04/19 21:25cialis kamagra 100 buy genuine cialis compare price generic cialis <a href=http://jvrimages.com/#cialis+alternative>foot callus</a> use of cialis after wat wow look it cialis equivalent online medical cialis
<a href=http://jvrimages.com/#goodrx+prices>30 day cialis trial offer</a> vente cialis 100mg safe generic cialis uk online sales pfizer cialis
http://jvrimages.com/#cialis+patent+expiration+date+extended comprar cialis en man what does cialis do acheter vrai cialis en ligne

MarkEnuctMarkEnuct2018/04/20 08:12levitra copay
<a href="http://levitra-gg.com">levitra 20mg</a>
levitra official site
<a href=http://mylevitraok.com#levitra+coupon>levitra prices</a>

MarkEnuctMarkEnuct2018/04/20 12:02levitra viagra differences
<a href="http://levitra-gg.com">levitra 10 mg prezzo</a>
robin de levitra twitter search
<a href=http://myvardenafilok.com#levitra+rezeptfrei+deutschland>levitra 20 mg</a>

HrafdcebutHrafdcebut2018/04/20 12:15use of cialis after wat online cialis order australia what is the best cialis dosage <a href=http://jvrimages.com/#viagra+vs+cialis+vs+levitra>side effects for cialis</a> is 100mg cialis too much cialis generique le moin che cialis verordnung fr frau
<a href=http://jvrimages.com/#cialis+free+trial>ceallas</a> how to buy cialis for women can i take cialis to the us cialis alle erb
http://jvrimages.com/#cheap+cialis ordre par cialis we use it cialis health store try it generic form of cialis

JugeGawJugeGaw2018/04/20 13:42cialis coupons printablecialis onlinecialis lowest pricecheap cialis
<a href="http://jvrimages.com/">buy cialis</a>
interactions for cialiscialis dosage
http://jvrimages.com/#purchasing+cialis+on+the+internet

MarkEnuctMarkEnuct2018/04/20 19:51levitra 20 mg pill
<a href="http://levitra-gg.com">levitra 10 mg prezzo</a>
which one is best viagra cialis or levitra for women
<a href=http://mylevitraok.com#levitra+20+mg>levitra generic</a>

cialis onlinecialis online2018/04/20 22:45Terrific work! This is the type of information that should be shared around the web. Shame on Google for not positioning this post higher! Come on over and visit my website . Thanks =)

MarkEnuctMarkEnuct2018/04/20 23:49the orgy drug levitra
<a href="http://levitra-gg.com">levitra 10 mg prezzo</a>
veterans administrations formulary levitra
<a href=http://mylevitraok.com#levitra+rezeptfrei+deutschland>buy levitra</a>

YtereGawYtereGaw2018/04/21 03:55cialis official siteBuy Cheap CialisBuy Cheap Cialis200 cialis coupon <a href="http://foreigncircles.com/#Trazodone-50-mg">Trazodone 50mg</a> cialis pillsgeneric cialis tadalafil <a href=http://foreigncircles.com/#Trazodone-50-mg>http://foreigncircles.com/#Trazodone</a> Cheap Cialis usacialis 30 day sample http://foreigncircles.com/

JorgeLomJorgeLom2018/04/21 04:20cialis kamagra levitra generic cialis levitra

HrafdcebutHrafdcebut2018/04/21 06:14100mg cialis price comprar cialis argentina red cialis cialis yan etkileri
<a href="http://jvrimages.com/">buy cialic</a> cialis shop in malaysia cialis 100mg canada cialis pro and con
tips buying cialis online cialis phone number detached retina cialis use
http://jvrimages.com/#cialis+savings+card shop for cialis cheap cialis use and massage only here candian cialis

YtereGawYtereGaw2018/04/21 08:14purchasing cialis on the internetgeneric for cialiscialis.comCheap Cialis usa <a href="http://foreigncircles.com/#Trazodone">buy Trazodone 50 mg</a> cialis canadaBuy Cheap Cialis in usa <a href=http://foreigncircles.com/#Trazodone>buy Trazodone 50 mg</a> cialis generic availabilitycialis official site http://foreigncircles.com/#Trazodone

MarkEnuctMarkEnuct2018/04/21 09:41levitra polka jammer
<a href="http://mylevitraok.com">generic levitra</a>
viagra vs levitra differences and similarities between plant
<a href=http://myvardenafilok.com#generic+levitra>levitra online</a>

YtereGawYtereGaw2018/04/21 12:47cialis tadalafilBuy Cheap Cialiscialis for daily usecialis dosage <a href="http://foreigncircles.com/">http://foreigncircles.com/#buy-Trazodone</a> tadalafilinteractions for cialis <a href=http://foreigncircles.com/#buy-Trazodone>Trazodone 50 mg</a> cialis official sitecialis 30 day sample http://foreigncircles.com/#Trazodone-50-mg

MarkEnuctMarkEnuct2018/04/21 13:02levitra ed survey
<a href="http://mylevitraok.com">vardenafil 20mg</a>
andy levitra tennessee titans news
<a href=http://levitra-gg.com#levitra+10+mg+prezzo>levitra 20mg</a>

MarkEnuctMarkEnuct2018/04/21 16:24levitra definicion biblica de creer
<a href="http://myvardenafilok.com">buy levitra</a>
buy f levitra link online.htm pillstore.pbwiki.com
<a href=http://myvardenafilok.com#levitra+rezeptfrei+deutschland>levitra generic</a>

YtereGawYtereGaw2018/04/21 17:23generic cialis at walmartcialis purchasingcialis tadalafilcialis coupons <a href="http://foreigncircles.com/#Trazodone">Trazodone 50 mg</a> cialis from canadaBuy Cheap Cialis in usa <a href=http://foreigncircles.com/#Trazodone-50-mg>http://foreigncircles.com/#buy-Trazodone</a> cheap cialiscialis tadalafil http://foreigncircles.com/#Trazodone-50-mg

YtereGawYtereGaw2018/04/22 05:59what is cialisBuy Cheap Cialis usacialis for salecialis generic availability <a href="https://cheapcialis.wixsite.com/cialis">cheap cialis usa</a>

Viagra for saleViagra for sale2018/04/23 03:33
Very good stuff. Many thanks.

200 cialis coupon200 cialis coupon2018/04/26 08:33
Nicely put. Thanks!

LouisfexLouisfex2018/04/26 13:37cialis dose maxima
<a href="http://cialisgrudj.com/">generic cialis online</a>
cialis vs levitra vs viagra which one is better
<a href="http://cialisgrudj.com/">buy cialis</a>
cialis 5 mg price cvs
http://cialisgrudj.com/
viagra vs cialis costs

PeterWridaPeterWrida2018/04/27 04:50viagra vs cialis costs
<a href="http://cialisgrudj.com/">generic cialis online</a>
dosage strengths of cialis
<a href="http://cialisgrudj.com/">generic cialis online</a>
brand cialis 10 mg
http://cialisgrudj.com/
best price viagra cialis

BillyMefBillyMef2018/04/27 20:08brand cialis australia
<a href="http://cialisgrudj.com/">cialis generic</a>
effectiveness of cialis vs viagra vs levitra comparison table
<a href="http://cialisgrudj.com/">buy cialis</a>
cialis retail prices usa
http://cialisgrudj.com/
cialis super active plus uk

KeithgakKeithgak2018/04/28 11:47cialis drug side effects
<a href="http://cialisgrudj.com/">generic cialis online</a>
genericos de viagra y cialis
<a href="http://cialisgrudj.com/">buy cialis online</a>
5mg cialis generic daily best price
http://cialisgrudj.com/
cialis generic india daily use

MarkEnuctMarkEnuct2018/04/28 20:11can erectile dysfunction be corrected
<a href=http://edpils-gg.com/>buy erectile dysfunction pills</a>
erectile disorder dsm 5
<a href="http://edpils-gg.com/">erectile pills without a doctor prescription</a>

HectorSerHectorSer2018/04/29 18:09cialis coupon at walgreens
<a href="http://cialisgrudj.com/">generic cialis</a>
levitra vs cialis which is better
<a href="http://cialisgrudj.com/">buy generic cialis</a>
cialis dosage chart
http://cialisgrudj.com/
cost of cialis daily 5 mg

WilliamsigWilliamsig2018/04/30 09:11cialis tadalafil 20mg reviews
<a href="http://cialisgrudj.com/">cialis generic</a>
best prices for cialis 5mg
<a href="http://cialisgrudj.com/">cialis</a>
walmart pharmacy prices cialis
http://cialisgrudj.com/
cialis maximum dosage per week

ReteGawReteGaw2018/04/30 19:03online cialiscialis official sitebuy cialis <a href="http://chineseteacrafts.com">Cialis Without A Doctor's Prescription</a>
Buy Cheap Cialischeap cialis <a href="http://chineseteacrafts.com">Cialis Without Prescription</a>

GeorgelarmaGeorgelarma2018/05/01 00:18cialis coupon card programme
<a href="http://cialisgrudj.com/">buy cialis online</a>
cialis 5mg best price australia
<a href="http://cialisgrudj.com/">cialis generic</a>
brand cialis 10mg
http://cialisgrudj.com/
cialis generic 5 mg daily houston pharmacy

DannyimarpDannyimarp2018/05/01 15:58cialis professional 40mg
<a href="http://cialisonlinq.com/">generic cialis online</a>
cialis available generic in 2017
<a href="http://cialisonlinq.com/">buy generic cialis online</a>
buy generic cialis online uk
http://cialisonlinq.com/
levitra vs cialis reviews

DavidwedDavidwed2018/05/01 17:24levitra or viagra which is better
<a href="http://viagrapipls.com/">viagra</a>
cialis dosage compared to viagra
<a href="http://viagrapipls.com/">viagra generic</a>
low cost cialis and viagra
http://viagrapipls.com/
viagra side effects how long do they last

HenryBoankHenryBoank2018/05/01 18:43cialis 20mg dosage frequency
<a href="http://cialisonlinq.com/">buy cialis online</a>
low cost viagra cialis 5mg
<a href="http://cialisonlinq.com/">buy cialis</a>
cost of cialis daily 5 mg
http://cialisonlinq.com/
maximum safe dosage of cialis

PrestonDoofsPrestonDoofs2018/05/02 09:47generic cialis super active
<a href="http://cialisonlinq.com/">cialis</a>
cialis vs viagra review
<a href="http://cialisonlinq.com/">buy cialis</a>
cialis cena apoteka
http://cialisonlinq.com/
cialis 20 mg 30 tablet orjinal mi

DannyfefDannyfef2018/05/02 10:23cialis generic name
<a href="http://cialisonlinq.com/">cialis</a>
lowest cost generic cialis
<a href="http://cialisonlinq.com/">buy cialis online</a>
generic cialis made in india
http://cialisonlinq.com/
cialis vs viagra vs levitra dosage review

DavidgahDavidgah2018/05/02 11:19viagra cialis cost
<a href="http://viagrapipls.com/">buy viagra online</a>
150 mg viagra dosage recommendations
<a href="http://viagrapipls.com/">buy viagra online</a>
viagra naturale per uomini
http://viagrapipls.com/
new female viagra drug

KufdrgeLomKufdrgeLom2018/05/02 15:55cialis 100 mg 30 tablet only now cialis for sale in us <a href=http://foreigncircles.com/#Trazodone-cheap>Trazodone cheap</a>
wow look it cialis mexico compare prices cialis uk
<a href=http://foreigncircles.com/#Trazodone-cheap-tablet>buy trazodone tablet</a>
http://foreigncircles.com

KufdrgeLomKufdrgeLom2018/05/02 16:58precios de cialis generico cialis pills boards <a href="http://foreigncircles.com/#buy-Trazodone-cheap">buy trazodone tablet</a>
prezzo cialis a buon mercato costo in farmacia cialis
<a href="http://foreigncircles.com/#buy-trazodone-50-mg">trazodone tablet</a>
http://foreigncircles.com

KufdrgeLomKufdrgeLom2018/05/02 18:00cialis 50 mg soft tab generic low dose cialis <a href="http://foreigncircles.com/#buy-Trazodone-cheap">Trazodone cheap</a>
how do cialis pills work enter site 20 mg cialis cost
<a href=http://foreigncircles.com/#trazodone-tablet>buy trazodone tablet</a>
http://foreigncircles.com

KufdrgeLomKufdrgeLom2018/05/02 19:02cialis generico postepay cialis online nederland <a href=http://foreigncircles.com/#foreigncircles.com>foreigncircles.com</a>
cialis daily new zealand enter site 20 mg cialis cost
<a href="http://foreigncircles.com/#buy-Trazodone-cheap">buy Trazodone cheap</a>
http://foreigncircles.com

WillieCoingWillieCoing2018/05/03 02:26levitra vs cialis vs viagra
<a href="http://cialisonlinq.com/">buy cialis online</a>
side effects of cialis in men
<a href="http://cialisonlinq.com/">cialis generic</a>
cialis prices
http://cialisonlinq.com/
cvs pharmacy cialis price

StevenHibStevenHib2018/05/03 04:03cialis dosage recommendations
<a href="http://cialisonlinq.com/">generic cialis</a>
cialis dapoxetine review
<a href="http://cialisonlinq.com/">generic cialis</a>
cialis 5mg dosing
http://cialisonlinq.com/
cialis prices in usa

MichaelaidedMichaelaided2018/05/03 05:29viagra cialis or levitra reviews
<a href="http://viagrapipls.com/">buy generic viagra</a>
new viagra commercial brunette actress
<a href="http://viagrapipls.com/">generic viagra online</a>
side effects of levitra vs viagra
http://viagrapipls.com/
price comparison viagra and cialis

RoycecoityRoycecoity2018/05/03 17:28cialis super active generic trust pharmacy
<a href="http://cialisonlinq.com/">cialis</a>
cialis 5mg price in india
<a href="http://cialisonlinq.com/">buy cialis</a>
what is the maximum dose for cialis
http://cialisonlinq.com/
cialis 20mg tablets coupon

RodolfoNoxRodolfoNox2018/05/03 20:54cialis (30 pills 20 mg)
<a href="http://cialisonlinq.com/">cialis generic</a>
lowest cialis prices 5mg
<a href="http://cialisonlinq.com/">cialis</a>
cytotechnology specialist
http://cialisonlinq.com/
donde comprar cialis generico en chile

EugeneNokEugeneNok2018/05/03 22:21youtube viagra commercial 2015 asian actresses
<a href="http://viagrapipls.com/">buy generic viagra</a>
what is generic viagra called in mexican
<a href="http://viagrapipls.com/">buy viagra online</a>
female viagra gets mixed reviews
http://viagrapipls.com/
viagra generic

JerryRopJerryRop2018/05/04 08:04can you buy generic cialis in canada
<a href="http://cialisonlinq.com/">buy generic cialis online</a>
lowest price generic cialis
<a href="http://cialisonlinq.com/">cialis</a>
cialis side effects bleeding
http://cialisonlinq.com/
cialis side effects last

AndrewHedAndrewHed2018/05/04 13:37price of cialis at walmart pharmacy
<a href="http://cialisonlinq.com/">buy cialis</a>
comprar cialis generico foro
<a href="http://cialisonlinq.com/">cialis generic</a>
price viagra vs cialis vs levitra
http://cialisonlinq.com/
generic cialis thailand

RobertoTexRobertoTex2018/05/04 15:09low cost viagra cialis canada
<a href="http://viagrapipls.com/">buy viagra</a>
viagra brand online uk
<a href="http://viagrapipls.com/">viagra generic</a>
viagra commercial black actress
http://viagrapipls.com/
viagra generico mexico

JosephzoofeJosephzoofe2018/05/05 07:12buy generic cialis in canada
<a href="http://cialisonlinq.com/">cialis</a>
cialis 5 mg daily reviews
<a href="http://cialisonlinq.com/">buy generic cialis</a>
cialis tadalafil 20 mg price in pakistan
http://cialisonlinq.com/
cialis 20 mg tablets from michigan

HarrymotHarrymot2018/05/05 08:32cost of cialis and viagra
<a href="http://viagrapipls.com/">buy generic viagra</a>
effects of viagra on blood pressure
<a href="http://viagrapipls.com/">buy generic viagra online</a>
viagra soft tabs 100mg pills
http://viagrapipls.com/
viagra effects on hearing and eye sight

ArthurOdoroArthurOdoro2018/05/05 14:22cialis side effects duration
<a href="http://cialisonlinq.com/">generic cialis online</a>
cialis side effects vision permanent
<a href="http://cialisonlinq.com/">generic cialis</a>
cialis professional reviews
http://cialisonlinq.com/
buy cheap cialis in canada

MichaeltoBMichaeltoB2018/05/06 00:18cialis generico opinion
<a href="http://cialisonlinq.com/">generic cialis online</a>
cost comparison of viagra levitra and cialis
<a href="http://cialisonlinq.com/">buy cialis online</a>
viagra and cialis combo dosages
http://cialisonlinq.com/
comprar cialis generico foro

DonaldpagDonaldpag2018/05/06 01:45viagra purchase uk
<a href="http://viagrapipls.com/">generic viagra</a>
viagra super active plus australia
<a href="http://viagrapipls.com/">generic viagra online</a>
cialis vs viagra price
http://viagrapipls.com/
what is generic name for viagra

RusselRibRusselRib2018/05/06 05:25cialis coupon for 2018
<a href="http://cialisonlinq.com/">buy cialis online</a>
viagra and cialis dosage and cost comparisons
<a href="http://cialisonlinq.com/">generic cialis online</a>
cialis vs viagra
http://cialisonlinq.com/
cialis generic brand names

KevinTuslyKevinTusly2018/05/06 17:48cialis side effects leg pain
<a href="http://cialisonlinq.com/">buy generic cialis</a>
buy cialis soft tabs
<a href="http://cialisonlinq.com/">cialis generic</a>
viagra y cialis genericos
http://cialisonlinq.com/
cialis 5mg price in uae

RichardTubRichardTub2018/05/06 19:10cialis vs viagra vs levitra sale
<a href="http://viagrapipls.com/">generic viagra</a>
soft gel viagra super active
<a href="http://viagrapipls.com/">viagra generic</a>
best price generic viagra
http://viagrapipls.com/
viagra commercial woman asian

BrendanFumBrendanFum2018/05/06 20:44cialis 20mg price
<a href="http://cialisonlinq.com/">cialis generic</a>
viagra and cialis dosage and costi
<a href="http://cialisonlinq.com/">buy generic cialis online</a>
cialis vs viagra vs levitra forum
http://cialisonlinq.com/
cialis vs viagra effectiveness

JoddyLomJoddyLom2018/05/07 01:31<a href="http://bikecommunications.com/#">coupon for cialis by manufacturer</a> cialis prices in england cialis 5mg billiger acheter cialis meilleur pri cialis tadalafil online cialis generique 5 mg order generic cialis online <a href=http://bikecommunications.com/#>Cialis Coupon 30 day</a>

RalphflurfRalphflurf2018/05/07 10:47brand name cialis 10mg
<a href="http://cialisonlinq.com/">generic cialis online</a>
viagra vs cialis vs levitra cost comparison
<a href="http://cialisonlinq.com/">generic cialis</a>
cialis dosage 10 mg
http://cialisonlinq.com/
cialis brand 10mg

MichaelnuhMichaelnuh2018/05/07 11:30cialis dosage recommendations vs viagra
<a href="http://cialisonlinq.com/">buy generic cialis online</a>
cialis tadalafil 20mg uk
<a href="http://cialisonlinq.com/">buy cialis online</a>
equivalent doses of cialis and viagra
http://cialisonlinq.com/
cialis side effects in men

LamarmootaLamarmoota2018/05/07 12:03viagra and cialis generic
<a href="http://viagrapipls.com/">buy viagra</a>
walmart generic viagra 100mg online india
<a href="http://viagrapipls.com/">generic viagra</a>
viagra price drop australia
http://viagrapipls.com/
viagra side effects mayo clinic

AnthonykitAnthonykit2018/05/08 02:40viagra cialis levitra online uk
<a href="http://cialisonlinq.com/">generic cialis online</a>
cialis viagra dosage comparison
<a href="http://cialisonlinq.com/">cialis</a>
merle generic viagra cialis
http://cialisonlinq.com/
brand name cialis prices

DavidVefDavidVef2018/05/08 04:04cialis (30 pills 20 mg)
<a href="http://cialisonlinq.com/">buy cialis online</a>
what is the maximum dosage for cialis
<a href="http://cialisonlinq.com/">buy generic cialis</a>
cialis side effects sore legs
http://cialisonlinq.com/
cialis generico barato espaГ±a

ThomasCryncThomasCrync2018/05/08 05:19viagra super active plus pharmacy rx
<a href="http://viagrapipls.com/">generic viagra online</a>
viagra price reduction canada
<a href="http://viagrapipls.com/">generic viagra online</a>
viagra preço farmacia
http://viagrapipls.com/
viagra black woman commercial

RichardwenRichardwen2018/05/08 17:12hearing loss cialis 5 mg dose
<a href="http://cialisonlinq.com/">generic cialis online</a>
cialis generico preço
<a href="http://cialisonlinq.com/">buy cialis</a>
what is maximum dose of cialis
http://cialisonlinq.com/
cialis generic in 2018

HectorMubHectorMub2018/05/08 20:51cialis side effects dangers
<a href="http://cialisonlinq.com/">cialis</a>
levitra vs cialis forum
<a href="http://cialisonlinq.com/">buy generic cialis</a>
cialis 20 mg prices with prescription
http://cialisonlinq.com/
cost of cialis and viagra

DennissteepDennissteep2018/05/08 22:07cost of viagra and cialis
<a href="http://viagrapipls.com/">buy generic viagra online</a>
side effects of 100 mg of viagra
<a href="http://viagrapipls.com/">viagra</a>
cost viagra vs cialis vs levitra
http://viagrapipls.com/
generic viagra from walmart

StevespaskStevespask2018/05/09 08:21cialis 5mg price in india
<a href="http://cialisonlinq.com/">cialis</a>
cialis 5 mg generico precio
<a href="http://cialisonlinq.com/">buy generic cialis</a>
5 mg cialis vs 20 mg cialis
http://cialisonlinq.com/
cialis 40 mg professional for sale

RichardinsesRichardinses2018/05/09 15:13hay viagra natural para mujeres
<a href="http://amsboatyard.com/">generic viagra online</a>
compare viagra and cialis dosage
<a href="http://amsboatyard.com/">buy viagra</a>
levitra reviews vs viagra
http://amsboatyard.com/
long-term effects of viagra

EdwardexponEdwardexpon2018/05/09 17:30viagra 100mg vs cialis 20mg
<a href="http://cialisonlinq.com/">buy cialis online</a>
extra super cialis reviews
<a href="http://cialisonlinq.com/">cialis generic</a>
levitra vs cialis vs viagra reddit
http://cialisonlinq.com/
cialis main ingredient

EdgarThordEdgarThord2018/05/09 23:02best price on 20 mg cialis brandon
<a href="http://airvietnamairline.com/">cialis</a>
cialis dosage information
<a href="http://airvietnamairline.com/">buy generic cialis online</a>
cialis coupon 2017
http://airvietnamairline.com/
cialis 20 mg tablets how to take

MichaelGrillMichaelGrill2018/05/10 05:04kamagra chew tablets - 100 mg
<a href="http://kamagraonl.com/">buy kamagra 100mg</a>
kamagra 100mg oral jelly ebay
<a href="http://kamagraonl.com/">buy kamagra</a>
super kamagra forum hr
http://kamagraonl.com/
kamagra price

JamesZekJamesZek2018/05/10 08:21viagra super active (sildenafil citrate)
<a href="http://amsboatyard.com/">generic viagra online</a>
asian woman on viagra commercial blue dress
<a href="http://amsboatyard.com/">viagra generic</a>
viagra generic date usa
http://amsboatyard.com/
viagra dosage for men

JosephEvindJosephEvind2018/05/10 14:04cialis 20 mg uses
<a href="http://airvietnamairline.com/">buy generic cialis</a>
cialis coupons printable cvs
<a href="http://airvietnamairline.com/">cialis generic</a>
cialis tabs 20mg
http://airvietnamairline.com/
cialis commercial actors 2016

MarionvarMarionvar2018/05/10 21:50kamagra store uk
<a href="http://kamagraonl.com/">kamagra 100mg</a>
kamagra oral jelly review forum
<a href="http://kamagraonl.com/">buy kamagra 100mg</a>
kamagra oral jelly online usa
http://kamagraonl.com/
kamagra 100mg

MartinRipseMartinRipse2018/05/11 01:20buy viagra online us pharmacy reviews
<a href="http://amsboatyard.com/">buy viagra online</a>
viagra commercial girl 2014
<a href="http://amsboatyard.com/">viagra generic</a>
generic viagra soft tabs
http://amsboatyard.com/
generic viagra wiki

JefferymamJefferymam2018/05/11 05:02generic cialis in the united states
<a href="http://airvietnamairline.com/">buy cialis</a>
cialis commercial actors
<a href="http://airvietnamairline.com/">buy cialis online</a>
cialis soft tabs side effects
http://airvietnamairline.com/
cialis 10mg dosage

JefferypaxJefferypax2018/05/11 18:31kamagra oral jelly review uk
kamagra gold 100mg
the kamagra store scam
kamagra usa next day shipping

CoreygorCoreygor2018/05/15 17:03cost of cialis per pill
buy cialis <a href="http://cialisees.com/">tadalafilo</a>
cialis dosage amounts <a href=http://cialisees.com/>cialis generique</a>
only now cialis for sale in us

CoreygorCoreygor2018/05/15 17:50precios de cialis generico
tarif cialis france <a href="http://cialisees.com/">cialis 20 mg</a>
only best offers 100mg cialis <a href=http://cialisees.com/>cialis generic</a>
cialis en mexico precio

CoreygorCoreygor2018/05/15 19:41cialis 5 mg scheda tecnica
cialis 5mg <a href="http://cialisees.com/tadalafil-20mg">cialis 5mg prix</a>
enter site natural cialis <a href=http://cialisees.com/#tadalafil-5mg>cialis tablets</a>
we choice cialis pfizer india

CoreygorCoreygor2018/05/15 19:53cialis 5 mg scheda tecnica
buying cialis in colombia <a href="http://cialisees.com/cialis-tablets">tadalafil generic</a>
cialis uk <a href=http://cialisees.com/#cialis-pills>cialis prices</a>
generic cialis at walmart

CoreygorCoreygor2018/05/15 20:06cialis generic
cialis cuantos mg hay <a href="http://cialisees.com/#cialis-20-mg-best-price">cialis great britain</a>
we choice cialis pfizer india <a href=http://cialisees.com/generic-cialis>generic cialis</a>
generic cialis pro

CoreygorCoreygor2018/05/15 20:43comprar cialis 10 espa241a
cialis patent expiration <a href="http://cialisees.com/#cialis-generique">cialis pills</a>
cialis generique <a href=http://cialisees.com/cialis-generique>cialis uk</a>
cialis 20 mg

CoreygorCoreygor2018/05/15 21:00cialis preise schweiz
cialis y deporte <a href="http://cialisees.com/#cialis-from-canada">sialis</a>
5 mg cialis pharmacie en ligne <a href=http://cialisees.com/cialis-20mg>cialis 5mg prix</a>
price cialis wal mart pharmacy

CoreygorCoreygor2018/05/15 21:34the best choice cialis woman
cialis 5 mg funziona <a href="http://cialisees.com/cialis-from-canada">cialis sans ordonnance</a>
cialis 50 mg soft tab <a href=http://cialisees.com/cialis-lowest-price>buy cialis</a>
cialis dose 30mg

CoreygorCoreygor2018/05/15 21:51where cheapest cialis
tarif cialis france <a href="http://cialisees.com/#cialis-coupon">cialis pills</a>
cialis 5 mg effetti collateral <a href=http://cialisees.com/#cialis-without-a-doctors-prescription>tadalafil 10 mg</a>
cialis for bph

CoreygorCoreygor2018/05/15 22:09buy cialis online legal
cialis online <a href="http://cialisees.com/viagra-vs-cialis-vs-levitra">200 cialis coupon</a>
cialis super kamagra <a href=http://cialisees.com/cialis-alternative>cialis online</a>
cialis online nederland

CoreygorCoreygor2018/05/15 22:26cialis australian price
buy cialis sample pack <a href="http://cialisees.com/#cialis-generique">cialis vs viagra</a>
cialis generico in farmacia <a href=http://cialisees.com/cialis-20-mg-best-price>viagra cialis levitra</a>
cialis rezeptfrei sterreich

CoreygorCoreygor2018/05/15 22:44cialis pills price each
does cialis cause gout <a href="http://cialisees.com/tadalafil-generic">cialis 5mg</a>
cialis efficacit <a href=http://cialisees.com/#cialis-for-daily-use>cialis from canada</a>
free generic cialis

CoreygorCoreygor2018/05/15 23:01we like it cialis soft gel
buy cheap cialis in uk <a href="http://cialisees.com/#cialis-5mg-prix">purchasing cialis on the internet</a>
cialis prezzo di mercato <a href=http://cialisees.com/#discount-cialis>tadalafilo</a>
generic cialis at walmart

CoreygorCoreygor2018/05/15 23:19cialis cost
cialis lilly tadalafi <a href="http://cialisees.com/#cheap-cialis">cialis purchasing</a>
acquistare cialis internet <a href=http://cialisees.com/viagra-vs-cialis>cialis prices</a>
we recommend cialis best buy

CoreygorCoreygor2018/05/15 23:36purchasing cialis on the internet
buy cialis sample pack <a href="http://cialisees.com/cialis-20-mg-best-price">cheap cialis</a>
cialis 20 mg best price <a href=http://cialisees.com/cialis-generico>cialis alternative</a>
price cialis wal mart pharmacy

CoreygorCoreygor2018/05/15 23:53tadalafil 10 mg
overnight cialis tadalafil <a href="http://cialisees.com/cialis-20-mg-best-price">viagra vs cialis</a>
cialis 05 <a href=http://cialisees.com/buy-cialis>viagra vs cialis</a>
cialis 5 mg schweiz

CoreygorCoreygor2018/05/16 00:10acheter du cialis a geneve
when will generic cialis be available <a href="http://cialisees.com/#tadalafil-10-mg">tadalafil 20mg</a>
cialis daily new zealand <a href=http://cialisees.com/cialis-5mg-prix>cialis lowest price</a>
cialis tadalafil

CoreygorCoreygor2018/05/16 00:28cialis 5mg billiger
cialis price in bangalore <a href="http://cialisees.com/cialis-coupon">viagra or cialis</a>
enter site natural cialis <a href=http://cialisees.com/buy-generic-cialis>cialis generico online</a>
cialis 50 mg soft tab

CoreygorCoreygor2018/05/16 00:46cialis farmacias guadalajara
buying cialis on internet <a href="http://cialisees.com/cialis-kaufen">buy cialis</a>
cialis pas cher paris <a href=http://cialisees.com/#cialis-tablets-australia>tadalafil 5mg</a>
where cheapest cialis

CoreygorCoreygor2018/05/16 01:03pastillas cialis y alcoho
no prescription cialis cheap <a href="http://cialisees.com/cialis-generico-online">cialis kaufen</a>
cialis coupons <a href=http://cialisees.com/cialis-vs-viagra>purchasing cialis on the internet</a>
buy cialis sample pack

CoreygorCoreygor2018/05/16 01:21cialis pills in singapore
cialis generico <a href="http://cialisees.com/#tadalafil-5mg">cialis great britain</a>
tesco price cialis <a href=http://cialisees.com/cialis-20mg-prix-en-pharmacie>cialis 20 mg</a>
sialis

CoreygorCoreygor2018/05/16 01:39we choice cialis uk
prescription doctor cialis <a href="http://cialisees.com/cialis-5mg-prix">tadalafil</a>
cialis 20mg prix en pharmacie <a href=http://cialisees.com/cialis-generique>cialis purchasing</a>
generic cialis 20mg tablets

CoreygorCoreygor2018/05/16 01:56comprar cialis navarr
buy cheap cialis in uk <a href="http://cialisees.com/cialis-tablets-australia">generic cialis</a>
achat cialis en suisse <a href=http://cialisees.com/cialis-uk>cialis 20 mg</a>
we like it safe cheap cialis

CoreygorCoreygor2018/05/16 02:14cialis price in bangalore
cialis generico online <a href="http://cialisees.com/low-cost-cialis-20mg">cialis kaufen</a>
cialis canadian drugs <a href=http://cialisees.com/viagra-vs-cialis>cialis generico online</a>
does cialis cause gout

CoreygorCoreygor2018/05/16 02:49cialis usa cost
how to purchase cialis on line <a href="http://cialisees.com/#cheap-cialis">tadalafil 5mg</a>
cipla cialis online <a href=http://cialisees.com/viagra-vs-cialis-vs-levitra>cialis alternative</a>
generic cialis at the pharmacy

CoreygorCoreygor2018/05/16 03:07cilas
costo in farmacia cialis <a href="http://cialisees.com/#viagra-or-cialis">cialis cost</a>
order cialis from india <a href=http://cialisees.com/buy-cialis-online>sialis</a>
cialis generico en mexico

CoreygorCoreygor2018/05/16 03:25cialis online napol
cialis en 24 hora <a href="http://cialisees.com/generic-cialis">cialis 5mg prix</a>
safe site to buy cialis online <a href=http://cialisees.com/cialis-lowest-price>buy cialis</a>
cialis para que sirve

CoreygorCoreygor2018/05/16 03:44cialis 10 doctissimo
cialis ahumada <a href="http://cialisees.com/cialis-great-britain">cialis kaufen</a>
cialis daily <a href=http://cialisees.com/#buy-cialis-online>tadalafilo</a>
look here cialis order on line

CoreygorCoreygor2018/05/16 04:03buy cialis cheap 10 mg
side effects for cialis <a href="http://cialisees.com/#cialis-generika">cialis cost</a>
cialis great britain <a href=http://cialisees.com/#buy-generic-cialis>cialis without a doctor's prescription</a>
cialis generique 5 mg

CoreygorCoreygor2018/05/16 04:23cialis 20 mg
tadalafil 20mg <a href="http://cialisees.com/#cialis-prices">cialis purchasing</a>
cialis online holland <a href=http://cialisees.com/#cialis-generika>200 cialis coupon</a>
prezzo cialis a buon mercato

CoreygorCoreygor2018/05/16 05:24buy cialis
viagra vs cialis <a href="http://cialisees.com/#cialis-uk">cialis 5mg prix</a>
miglior cialis generico <a href=http://cialisees.com/#cialis-tablets-australia>cialis generic</a>
cialis manufacturer coupon

CoreygorCoreygor2018/05/16 05:43weblink price cialis
cilas <a href="http://cialisees.com/#cialis-5mg">cialis for sale</a>
cialis sale online <a href=http://cialisees.com/#cialis-vs-viagra>cialis canada</a>
cialis generico

CoreygorCoreygor2018/05/16 06:02safe dosage for cialis
cialis kaufen <a href="http://cialisees.com/canadian-cialis">purchasing cialis on the internet</a>
prices for cialis 50mg <a href=http://cialisees.com/cialis-generico>cialis 20mg prix en pharmacie</a>
interactions for cialis

CoreygorCoreygor2018/05/16 06:21cialis pas cher paris
are there generic cialis <a href="http://cialisees.com/cialis-for-daily-use">cialis daily</a>
pastillas cialis y alcoho <a href=http://cialisees.com/#generic-cialis>cialis great britain</a>
enter site natural cialis

CoreygorCoreygor2018/05/16 06:41cilas
we recommend cialis best buy <a href="http://cialisees.com/tadalafil-generic">cialis coupon</a>
estudios de cialis genricos <a href=http://cialisees.com/viagra-vs-cialis-vs-levitra>cialis tablets</a>
cialis manufacturer coupon

CoreygorCoreygor2018/05/16 07:11cialis australian price
walgreens price for cialis <a href="http://cialisees.com/viagra-cialis-levitra">cialis vs viagra</a>
we choice cialis uk <a href=http://cialisees.com/#cialis-tablets>sialis</a>
cialis generic http://cialisees.com/#cialis-canada

CoreygorCoreygor2018/05/16 07:34cialis qualitat
acheter du cialis a geneve <a href="http://cialisees.com/#cialis-20-mg-best-price">purchasing cialis on the internet</a>
generic cialis pro <a href=http://cialisees.com/cialis-5mg>sialis</a>
what is cialis http://cialisees.com/#discount-cialis

CoreygorCoreygor2018/05/16 07:56click here take cialis
cialis dose 30mg <a href="http://cialisees.com/low-cost-cialis-20mg">cialis generico</a>
cialis pills in singapore <a href=http://cialisees.com/#tadalafilo>cialis uk</a>
cialis patentablauf in deutschland http://cialisees.com/#cialis-5-mg

CoreygorCoreygor2018/05/16 08:19free generic cialis
cialis generique 5 mg <a href="http://cialisees.com/#cialis-lowest-price">cialis purchasing</a>
tadalafilo <a href=http://cialisees.com/#cialis-20-mg-best-price>cialis for daily use</a>
ou acheter du cialis pas cher http://cialisees.com/#tadalafil

CoreygorCoreygor2018/05/16 08:41generic cialis in vietnam
tadalafil <a href="http://cialisees.com/tadalafilo">cialis prices</a>
cialis 20mg prix en pharmacie <a href=http://cialisees.com/#cialis-great-britain>cialis generika</a>
cialis prices in england http://cialisees.com/#tadalafil-10-mg

CoreygorCoreygor2018/05/16 09:04trusted tabled cialis softabs
cialis online napol <a href="http://cialisees.com/buy-cialis">cialis generique</a>
we recommend cialis best buy <a href=http://cialisees.com/#cialis-vs-viagra>cialis 20mg prix en pharmacie</a>
cialis generique http://cialisees.com/#buy-cialis-online

CoreygorCoreygor2018/05/16 09:26cialis generico online
costo in farmacia cialis <a href="http://cialisees.com/#cialis-alternative">cialis from canada</a>
cialis generico online <a href=http://cialisees.com/cialis-online>cialis uk</a>
generic cialis with dapoxetine http://cialisees.com/#cialis-generique

CoreygorCoreygor2018/05/16 09:49cialis lilly tadalafi
cialis 30 day sample <a href="http://cialisees.com/cialis-without-a-doctors-prescription">canadian cialis</a>
wow look it cialis mexico <a href=http://cialisees.com/#cialis-generika>cialis 20 mg best price</a>
deutschland cialis online http://cialisees.com/#tadalafil-10-mg

CoreygorCoreygor2018/05/16 10:11enter site 20 mg cialis cost
if a woman takes a mans cialis <a href="http://cialisees.com/#cialis-20-mg-best-price">cialis from canada</a>
tadalafilo <a href=http://cialisees.com/#viagra-or-cialis>cialis 5 mg</a>
cost of cialis cvs http://cialisees.com/#cialis-alternative

CoreygorCoreygor2018/05/16 10:34cialis sicuro in linea
cialis coupons <a href="http://cialisees.com/#cialis-pills">cialis 20mg prix en pharmacie</a>
cialis sicuro in linea <a href=http://cialisees.com/#cialis-for-sale>cialis 5mg prix</a>
cialis dosage recommendations http://cialisees.com/#cialis-uk

CoreygorCoreygor2018/05/16 10:57safe dosage for cialis
cialis daily new zealand <a href="http://cialisees.com/#tadalafil-tablets">tadalafil</a>
miglior cialis generico <a href=http://cialisees.com/tadalafil-20-mg>cialis 20mg prix en pharmacie</a>
cialis venta a domicilio http://cialisees.com/#cialis-kaufen

CoreygorCoreygor2018/05/16 11:19cialis uk
where to buy cialis in ontario <a href="http://cialisees.com/generic-for-cialis">viagra or cialis</a>
cialis online deutschland <a href=http://cialisees.com/#cialis-purchasing>cialis from canada</a>
cialis pills in singapore http://cialisees.com/#cialis-tablets-australia

CoreygorCoreygor2018/05/16 11:42cialis online
warnings for cialis <a href="http://cialisees.com/tadalafil">cialis for daily use</a>
generic cialis with dapoxetine <a href=http://cialisees.com/cialis-tablets>sialis</a>
comprar cialis 10 espa241a http://cialisees.com/#cialis-lowest-price

CoreygorCoreygor2018/05/16 12:05cialis uk
cialis 30 day sample <a href="http://cialisees.com/#canadian-cialis">cialis online</a>
cialis 5 mg scheda tecnica <a href=http://cialisees.com/#tadalafil>cialis without a doctor's prescription</a>
cialis prezzo di mercato http://cialisees.com/#generic-cialis

CoreygorCoreygor2018/05/16 12:27cialis professional from usa
cialis generique 5 mg <a href="http://cialisees.com/cialis-20mg">cialis canada</a>
cialis generico online <a href=http://cialisees.com/#low-cost-cialis-20mg>tadalafil 5mg</a>
cialis name brand cheap http://cialisees.com/#buy-generic-cialis

CoreygorCoreygor2018/05/16 12:50we choice cialis uk
we choice cialis pfizer india <a href="http://cialisees.com/#canadian-cialis">cialis canada</a>
look here cialis order on line <a href=http://cialisees.com/#viagra-cialis-levitra>viagra or cialis</a>
cialis daily reviews http://cialisees.com/#cialis-for-daily-use

CoreygorCoreygor2018/05/16 13:12look here cialis order on line
wow cialis 20 <a href="http://cialisees.com/#tadalafil">cialis 20mg prix en pharmacie</a>
generic cialis pill online <a href=http://cialisees.com/#cialis-20mg-prix-en-pharmacie>cialis sans ordonnance</a>
buy cialis cheap 10 mg http://cialisees.com/#viagra-vs-cialis

CoreygorCoreygor2018/05/16 13:5640 mg cialis what if i take
side effects for cialis <a href="http://cialisees.com/cialis-20-mg">cialis lowest price</a>
generic cialis pro <a href=http://cialisees.com/#cialis-20-mg>purchasing cialis on the internet</a>
cialis 5 effetti collaterali http://cialisees.com/#viagra-cialis-levitra

CoreygorCoreygor2018/05/16 14:19cost of cialis cvs
canadian discount cialis <a href="http://cialisees.com/cialis-vs-viagra">cialis tablets australia</a>
cialis kaufen <a href=http://cialisees.com/#buy-cialis-online>cialis daily</a>
click here to buy cialis http://cialisees.com/#cialis-20mg

CoreygorCoreygor2018/05/16 14:40online prescriptions cialis
cialis ahumada <a href="http://cialisees.com/#purchasing-cialis-on-the-internet">cheap cialis</a>
deutschland cialis online <a href=http://cialisees.com/#cialis-5mg>cialis without a doctor's prescription</a>
cialis side effects dangers http://cialisees.com/#cialis-daily

CoreygorCoreygor2018/05/16 15:24cialis 5 mg para diabeticos
cialis for bph <a href="http://cialisees.com/cialis-great-britain">cialis generico</a>
cialis pills <a href=http://cialisees.com/tadalafil-generic>cialis for sale</a>
click here to buy cialis http://cialisees.com/#cialis-purchasing

CoreygorCoreygor2018/05/16 15:47enter site 20 mg cialis cost
deutschland cialis online <a href="http://cialisees.com/#cialis-for-daily-use">tadalafil 10 mg</a>
cialis ahumada <a href=http://cialisees.com/#cialis-online>cialis 20mg prix en pharmacie</a>
cialis 30 day trial coupon http://cialisees.com/#cialis-vs-viagra

CoreygorCoreygor2018/05/16 16:08cialis pas cher paris
generic cialis 20mg tablets <a href="http://cialisees.com/discount-cialis">discount cialis</a>
cialis vs viagra <a href=http://cialisees.com/cialis-generico>cialis 20 mg</a>
cialis generico en mexico http://cialisees.com/#tadalafil

CoreygorCoreygor2018/05/16 16:48prix de cialis
cialis prezzo al pubblico <a href="http://cialisees.com/buy-cialis">cialis generika</a>
try it no rx cialis <a href=http://cialisees.com/#generic-cialis>cialis without a doctor's prescription</a>
no prescription cialis cheap http://cialisees.com/#cialis-5-mg

CoreygorCoreygor2018/05/16 17:08cialis canada
cialis prices <a href="http://cialisees.com/cialis-20-mg">cialis 5mg prix</a>
cialis generico [url=http://cialisees.com/#buy-generic-cialis]cialis vs viagra[/url]
cialis dose 30mg http://cialisees.com/#generic-cialis

RehgeLomRehgeLom2018/05/18 06:58<a href="http://jardinstea.com/#buy-sildenafil">sildenafil citrate 100 mg prices</a> buy viagra online nz viagra et insomni
viagra pas cher paris viagra efficacit <a href="http://humblegaiwan.com/">buy sildenafil cheap</a>
acquisto online viagra miglior viagra generico
viagra professional yohimbe only best offers viagra use [url=http://jardinstea.com/]Buy sildenafil 100 mg price[/url]
viagra taglich viagra 100mg suppliers
http://humblegaiwan.com/

RehgeLomRehgeLom2018/05/18 08:22<a href="http://jardinstea.com/#buy-100-mg">sildenafil citrate 100 mg prices</a> does viagra cause gout compare prices viagra uk
how much does a viagra cost only now viagra 20 mg <a href="http://jardinstea.com/#buy-100-mg">sildenafil citrate 100 mg</a>
viagra kaufen bankberweisung we choice viagra uk
non 5 mg viagra generici where cheapest viagra [url=http://humblegaiwan.com/]buy cheap sildenafil online u[/url]
we choice viagra uk viagra daily reviews
http://humblegaiwan.com/

RehgeLomRehgeLom2018/05/18 09:33<a href="http://humblegaiwan.com/">buy cheap generic sildenafil</a> viagra ahumada viagra 20 mg cut in half
viagra professional yohimbe click now buy viagra brand <a href="http://humblegaiwan.com/">buy cheap sildenafil tablets</a>
buying viagra in colombia we like it safe cheap viagra
viagra venta a domicilio generic viagra 20mg tablets [url=http://humblegaiwan.com/]buy cheap sildenafil 120mg[/url]
where cheapest viagra tarif viagra france
http://humblegaiwan.com/

RehgeLomRehgeLom2018/05/18 10:46<a href="http://humblegaiwan.com/">buy sildenafil cheap australia</a> viagra kamagra levitra generico viagra mexico
viagra y deporte generic viagra pill online <a href="http://jardinstea.com/#buy-100-mg">Buy sildenafil 100 mg</a>
buy viagra sample pack viagra with 2 days delivery
are there generic viagra prezzo di viagra in bulgaria [url=http://jardinstea.com/#sildenafil]sildenafil citrate 100 mg[/url]
viagra daily dose generic viagra 5 mg para diabeticos
http://jardinstea.com/#sildenafil-citrate

RehgeLomRehgeLom2018/05/18 12:01<a href="http://jardinstea.com/#buy-sildenafil">sildenafil 100 mg coupons</a> recommended site viagra kanada viagra for sale in europa
prices on viagra 10 mg preis viagra 20mg schweiz <a href="http://jardinstea.com/#sildenafil-citrate">sildenafil 100 mg price</a>
viagra per paypa where to buy viagra in ontario
buy viagra uk no prescription buying viagra on internet [url=http://jardinstea.com/#100mg]sildenafil 100 mg[/url]
acheter du viagra a geneve viagra prezzo al pubblico
http://jardinstea.com/#buy-sildenafil

RehgeLomRehgeLom2018/05/18 13:13<a href="http://humblegaiwan.com/">buy cheapes link sildenafil</a> viagra per paypa viagra venta a domicilio
viagra italia gratis generic viagra levitra <a href="http://jardinstea.com/#sildenafil">sildenafil citrate 100 mg coupons</a>
viagra daily reviews buy viagra uk no prescription
safe dosage for viagra viagra tadalafil online [url=http://jardinstea.com/]Sildenafil Citrate 100 mg best price[/url]
opinioni viagra generico viagra price in bangalore
http://humblegaiwan.com/

RehgeLomRehgeLom2018/05/18 14:20<a href="http://jardinstea.com/#100mg">sildenafil citrate 100mg prices</a> import viagra fast viagra online
tarif viagra france viagra 5 mg schweiz <a href="http://humblegaiwan.com/">buy cheap phentermine moreover order sildenafil</a>
viagra y deporte buying brand viagra online
prezzo di viagra in bulgaria viagra dosage amounts [url=http://jardinstea.com/#100mg]sildenafil 100 mg tablets[/url]
mycanadyanpharmacyviagra cost of viagra cvs
http://jardinstea.com/#sildenafil-citrate

RehgeLomRehgeLom2018/05/18 16:55<a href="http://jardinstea.com/#buy-100-mg">sildenafil 100 mg coupons</a> buy cheap viagra in uk non 5 mg viagra generici
viagra rckenschmerzen generic viagra at the pharmacy <a href="http://jardinstea.com/#buy-100-mg">Buy sildenafil 100 mg</a>
viagra italia gratis 40 mg viagra what if i take
acheter du viagra a geneve generic viagra pill online [url=http://jardinstea.com/#sildenafil]Buy sildenafil 100 mg for sale[/url]
viagra preise schweiz wow look it viagra mexico
http://jardinstea.com/#buy-sildenafil

SEObrachSEObrach2018/07/02 02:44 [url=http://seorussian.ru/]Продвижение сайта[/url] - [url=http://seorussian.ru]seorussian.ru[/url]

2009-11-24

[]問題5.12 02:13

;; 補助関数
(define (filter pred lst)
  (cond ((null? lst) '())
        ((pred (car lst))
         (cons (car lst)
               (filter pred (cdr lst))))
        (else (filter pred (cdr lst)))))

(define (remove-duplicates lst)
  (define (iter lst result)
    (if (null? lst) result
        (if (member (car lst) (cdr lst))
            (iter (cdr lst) result)
            (iter (cdr lst) (cons (car lst) result)))))
  (iter lst '()))

;; 命令列情報の生成関数
(define (make-information insts)
  (let ((insts-text (map instruction-text insts)))
    (apply append
           (map
            (lambda (name)
              (remove-duplicates
               (filter
                (lambda (i) (eq? (car i) name))
                insts-text)))
            '(assign test branch goto save restore perform)))))

;; 処理系の書き換え分
(define (assemble controller-text machine)
  (extract-labels controller-text
    (lambda (insts labels)
      (update-insts! insts labels machine)
      (cons insts (make-information insts)))))

(define (make-machine register-names ops controller-text)
  (let ((machine (make-new-machine)))
    (for-each (lambda (register-name)
                ((machine 'allocate-register) register-name))
              register-names)
    ((machine 'install-operations) ops)
    (let ((assembled (assemble controller-text machine)))
      ((machine 'install-instruction-sequence)
       (car assembled))
      ((machine 'install-information)
       (cdr assembled)))
    machine))

(define (make-new-machine)
  (let ((pc (make-register 'pc))
        (flag (make-register 'flag))
        (stack (make-stack))
        (the-instruction-sequence '())
        (information '()))
    (let ((the-ops
           (list (list 'initialize-stack
                       (lambda () (stack 'initialize)))))
          (register-table
           (list (list 'pc pc) (list 'flag flag)))) 
      (define (allocate-register name)
        (if (assoc name register-table)
            (error "Multiply defined register: " name)
            (set! register-table
                  (cons (list name (make-register name))
                        register-table)))
        'register-allocated)
      (define (lookup-register name)
        (let ((val (assoc name register-table)))
          (if val
              (cadr val)
              (error "Unknown register: " name))))
      (define (execute)
        (let ((insts (get-contents pc)))
          (if (null? insts)
              'done
              (begin
                ((instruction-execution-proc (car insts)))
                (execute)))))
      (define (get-goto-reg information)
        (define (iter info result)
          (if (null? info) result
              (if (and (eq? (caar info) 'goto)
                       (eq? (car (cadr (car info))) 'reg))
                  (iter (cdr info) (cons (cadr (cadr (car info))) result))
                  (iter (cdr info) result))))
        (iter information '()))
      (define (get-save-restore-reg information)
        (define (iter info result)
          (if (null? info) result
              (if (or (eq? (caar info) 'save)
                      (eq? (caar info) 'restore))
                  (iter (cdr info) (cons (cadr (car info)) result))
                  (iter (cdr info) result))))
        (remove-duplicates (iter information '())))
      (define (get-assign-source information)
        (define (iter info result)
          (if (null? info) result
              (if (eq? (caar info) 'assign)
                  (iter (cdr info)
                        (cons
                         (if (null? (cdddr (car info)))
                             (cdr (car info))
                             (list (cadr (car info)) (cddr (car info))))
                         result))
                  (iter (cdr info) result))))
        (iter information '()))
      (define (aggregate source)
        (map (lambda (r)
               (cons r
                     (map cadr
                          (filter (lambda (p) (eq? (car p) r)) source))))
             (remove-duplicates (map car source))))
      (define (dispatch message)
        (cond ((eq? message 'start)
               (set-contents! pc the-instruction-sequence)
               (execute))
              ((eq? message 'install-instruction-sequence)
               (lambda (seq) (set! the-instruction-sequence seq)))
              ((eq? message 'allocate-register) allocate-register)
              ((eq? message 'get-register) lookup-register)
              ((eq? message 'install-operations)
               (lambda (ops) (set! the-ops (append the-ops ops))))
              ((eq? message 'stack) stack)
              ((eq? message 'operations) the-ops)
              ((eq? message 'install-information)
               (lambda (info) (set! information (append information info))))
              ((eq? message 'get-insts-info)
               information)
              ((eq? message 'get-goto-reg-info)
               (get-goto-reg information))
              ((eq? message 'get-save-restore-reg-info)
               (get-save-restore-reg information))
              ((eq? message 'get-assign-source-info)
               (aggregate (get-assign-source information)))
              (else (error "Unknown request -- MACHINE" message))))
      dispatch)))

;; 大域環境用の関数インタフェース
(define (get-insts-info machine)
  (machine 'get-insts-info))
(define (get-goto-reg-info machine)
  (machine 'get-goto-reg-info))
(define (get-save-restore-reg-info machine)
  (machine 'get-save-restore-reg-info))
(define (get-assign-source-info machine)
  (machine 'get-assign-source-info))

;; fib計算機
(define fib-machine
  (make-machine
   '(n val continue)
   (list (list '< <) (list '- -) (list '+ +))
   '(
       (assign continue (label fib-done))
     fib-loop
       (test (op <) (reg n) (const 2))
       (branch (label immediate-answer))
       ;; set up to compute Fib(n - 1)
       (save continue)
       (assign continue (label afterfib-n-1))
       (save n)                           ; save old value of n
       (assign n (op -) (reg n) (const 1)); clobber n to n - 1
       (goto (label fib-loop))            ; perform recursive call
     afterfib-n-1                         ; upon return, val contains Fib(n - 1)
       (restore n)
       (restore continue)
       ;; set up to compute Fib(n - 2)
       (assign n (op -) (reg n) (const 2))
       (save continue)
       (assign continue (label afterfib-n-2))
       (save val)                         ; save Fib(n - 1)
       (goto (label fib-loop))
     afterfib-n-2                         ; upon return, val contains Fib(n - 2)
       (assign n (reg val))               ; n now contains Fib(n - 2)
       (restore val)                      ; val now contains Fib(n - 1)
       (restore continue)
       (assign val                        ;  Fib(n - 1) +  Fib(n - 2)
               (op +) (reg val) (reg n)) 
     (goto (reg continue))              ; return to caller, answer is in val
     immediate-answer
       (assign val (reg n))               ; base case:  Fib(n) = n
       (goto (reg continue))
     fib-done)))

;; fib計算機の情報を表示
(define (info-fib-machine)
  (display "instructions: ")
  (display (get-insts-info fib-machine))
  (newline) (newline)
  (display "label registers: ")
  (display (get-goto-reg-info fib-machine))
  (newline)  (newline)
  (display "stacked registers: ")
  (display (get-save-restore-reg-info fib-machine))
  (newline)  (newline)
  (display "assign sources: ")
  (display (get-assign-source-info fib-machine))
  (newline)
  'done)

FoutleweefbofikFoutleweefbofik2014/01/19 08:08<a href="http://freecialiscialissaleyce.com/#nuan">cialis prescription</a> .,You can <a href="http://freecialiscialissalestrh.com/#wugk">cialis reviews</a> at large discounts with great service,Excellent health benefits are attainable when you <a href="http://cialisukcialissoftarry.com/#rhyw">buy cialis online</a>

jydnasgpsljydnasgpsl2014/12/03 22:33vxfqgtjdq, <a href="http://www.nwodugbkxi.com/">ctbkxbogyv</a> , [url=http://www.ebfdacihvr.com/]tblosnothx[/url], http://www.yqzlddjudk.com/ ctbkxbogyv

2008-09-25

[]問題4.44改 08:06

(define (queens)
  (define (increase-check level value points)
    (if (and (> level 0) (> 9 value))
        (begin
          (require (not (member (cons level value) points)))
          (increase-check (- level 1) (+ value 1) points))
        true))
  (define (decrease-check level value points)
    (if (and (> level 0) (> value 0))
        (begin
          (require (not (member (cons level value) points)))
          (decrease-check (- level 1) (- value 1) points))
        true))
  (define (cross-check level value points)
    (increase-check (- level 1) (+ value 1) points)
    (decrease-check (- level 1) (- value 1) points))
  (let ((q1 (amb 1 2 3 4 5 6 7 8))
        (q2 (amb 1 2 3 4 5 6 7 8)))
    (let ((points1 (list (cons 1 q1))))
      (require (not (= q2 q1)))
      (cross-check 2 q2 points1)
      (let ((q3 (amb 1 2 3 4 5 6 7 8)))
        (let ((points2 (cons (cons 2 q2) points1)))
          (require (not (member q3 (list q1 q2))))
          (cross-check 3 q3 points2)
          (let ((q4 (amb 1 2 3 4 5 6 7 8)))
            (let ((points3 (cons (cons 3 q3) points2)))
              (require (not (member q4 (list q1 q2 q3))))
              (cross-check 4 q4 points3)
              (let ((q5 (amb 1 2 3 4 5 6 7 8)))
                (let ((points4 (cons (cons 4 q4) points3)))
                  (require (not (member q5 (list q1 q2 q3 q4))))
                  (cross-check 5 q5 points4)
                  (let ((q6 (amb 1 2 3 4 5 6 7 8)))
                    (let ((points5 (cons (cons 5 q5) points4)))
                      (require (not (member q6 (list q1 q2 q3 q4 q5))))
                      (cross-check 6 q6 points5)
                      (let ((q7 (amb 1 2 3 4 5 6 7 8)))
                        (let ((points6 (cons (cons 6 q6) points5)))
                          (require (not (member q7 (list q1 q2 q3 q4 q5 q6))))
                          (cross-check 7 q7 points6)
                          (let ((q8 (amb 1 2 3 4 5 6 7 8)))
                            (let ((points7 (cons (cons 7 q7) points6)))
                              (require (not (member q8 (list q1 q2 q3 q4 q5 q6 q7))))
                              (cross-check 8 q8 points7)
                              (list (cons 1 q1) (cons 2 q2) (cons 3 q3) (cons 4 q4)
                                    (cons 5 q5) (cons 6 q6) (cons 7 q7) (cons 8 q8)))))))))))))))))

2008-09-24

[]問題4.44 02:25

(define (queens)
  (define (increase-check level value points)
    (if (and (> level 0) (> 9 value))
        (begin
          (require (not (member (cons level value) points)))
          (increase-check (- level 1) (+ value 1) points))
        true))
  (define (decrease-check level value points)
    (if (and (> level 0) (> value 0))
        (begin
          (require (not (member (cons level value) points)))
          (decrease-check (- level 1) (- value 1) points))
        true))
  (define (cross-check level value points)
    (increase-check level value points)
    (decrease-check level value points))
  (let ((q1 (amb 1 2 3 4 5 6 7 8))
        (q2 (amb 1 2 3 4 5 6 7 8)))
    (require (not (= q2 q1)))
    (cross-check 2 q2 (list (cons 1 q1)))
    (let ((q3 (amb 1 2 3 4 5 6 7 8)))
      (require (not (member q3 (list q1 q2))))
      (cross-check 3 q3 (list (cons 1 q1) (cons 2 q2)))
      (let ((q4 (amb 1 2 3 4 5 6 7 8)))
        (require (not (member q4 (list q1 q2 q3))))
        (cross-check 4 q4 (list (cons 1 q1) (cons 2 q2) (cons 3 q3)))
        (let ((q5 (amb 1 2 3 4 5 6 7 8)))
          (require (not (member q5 (list q1 q2 q3 q4))))
          (cross-check 5 q5 (list (cons 1 q1) (cons 2 q2) (cons 3 q3)
                                  (cons 4 q4)))
          (let ((q6 (amb 1 2 3 4 5 6 7 8)))
            (require (not (member q6 (list q1 q2 q3 q4 q5))))
            (cross-check 6 q6 (list (cons 1 q1) (cons 2 q2) (cons 3 q3)
                                    (cons 4 q4) (cons 5 q5)))
            (let ((q7 (amb 1 2 3 4 5 6 7 8)))
              (require (not (member q7 (list q1 q2 q3 q4 q5 q6))))
              (cross-check 7 q7 (list (cons 1 q1) (cons 2 q2) (cons 3 q3)
                                      (cons 4 q4) (cons 5 q5) (cons 6 q6)))
              (let ((q8 (amb 1 2 3 4 5 6 7 8)))
                (require (not (member q8 (list q1 q2 q3 q4 q5 q6 q7))))
                (cross-check 8 q8 (list (cons 1 q1) (cons 2 q2) (cons 3 q3)
                                        (cons 4 q4) (cons 5 q5) (cons 6 q6)
                                        (cons 7 q7)))
                (list (cons 1 q1) (cons 2 q2) (cons 3 q3) (cons 4 q4)
                      (cons 5 q5) (cons 6 q6) (cons 7 q7) (cons 8 q8))))))))))

2008-09-21

[]問題4.43の後半 17:31

(define (daughters)
  (let ((moore (amb 'mary-ann 'rosalind 'gabrielle))
        (barnacle 'melissa)
        (hall (amb 'gabrielle 'lorna 'mary-ann))
        (downing (amb 'gabrielle 'lorna 'rosalind 'mary-ann))
        (parker (amb 'lorna 'rosalind)))
    (require (distinct? (list moore hall downing parker)))
    (require (or (and (eq? hall 'gabrielle)
                      (eq? parker 'rosalind))
                 (and (eq? moore 'gabrielle)
                      (eq? parker 'lorna))))
    (list (list 'moore moore)
          (list 'barnacle barnacle)
          (list 'hall hall)
          (list 'downing downing)
          (list 'parker parker))))