constructQuestion :: SubjectId -> UTCTime -> QuestionsInput -> Questions
constructQuestion sid time input = Questions
    sid time
    (age input)
    (sex input)
    (question1 input)
    (question2 input)
    (question3 input)
    (question4 input)
    (question5 input)
    (question6 input)
    (question7 input)
    (question8 input)
    (question9 input)
    (question10 input)
    (question11 input)
    (question12 input)
    (remark1 input)
    (remark2 input)
    (remark3 input)
    (remark4 input)
    (remark5 input)
    (remark6 input)
    (remark7 input)
    (remark8 input)
    (remark9 input)
    (remark10 input)
constructQuestion :: SubjectId -> UTCTime -> QuestionsInput -> Questions
constructQuestion sid time input = Questions
    sid time
    (age input)
    (sex input)
    (question1 input)
    (question2 input)
    (question3 input)
    (question4 input)
    (question5 input)
    (question6 input)
    (question7 input)
    (question8 input)
    (question9 input)
    (question10 input)
    (question11 input)
    (question12 input)
    (remark1 input)
    (remark2 input)
    (remark3 input)
    (remark4 input)
    (remark5 input)
    (remark6 input)
    (remark7 input)
    (remark8 input)
    (remark9 input)
    (remark10 input)
constructQuestion sid time input = Questions
    sid time
    (age input)
    (sex input)
    (question1 input)
    (question2 input)
    (question3 input)
    (question4 input)
    (question5 input)
    (question6 input)
    (question7 input)
    (question8 input)
    (question9 input)
    (question10 input)
    (question11 input)
    (question12 input)
    (remark1 input)
    (remark2 input)
    (remark3 input)
    (remark4 input)
    (remark5 input)
    (remark6 input)
    (remark7 input)
    (remark8 input)
    (remark9 input)
    (remark10 input)