# -----------------------------------------------------------------------------
# R programming statements for h217 data
#
# This file contains programming statements needed to import the ASCII data 
# file (.dat) into R. The R programming language has the capability to produce
# appropriate standard errors for estimates from a survey with a complex sample 
# design such as the Medical Expenditure Panel Survey (MEPS).
# 
# The input file is the ASCII data file (h217.dat) supplied in this PUF 
# release, which can be extracted from the .zip file supplied at the MEPS 
# website: https://meps.ahrq.gov/mepsweb/data_stats/download_data_files.jsp
#
# This code imports the MEPS data into R as a data frame called 'h217'.
#  
# Note that additional packages are needed to successfully run this code. To 
# install these packages, run the 'install.packages' function (shown below). 
# Once installed, the packages can be called using the 'library' function. 
# Packages only need to be installed once, but they must be called using the 
# 'library' function every time a new R session is started.
#
# Two options are available to run this code:
#
#  1. Copy and paste the code into an interactive R session. 
#
#     The user must first download the ASCII (.dat) file from the MEPS website
#     and save it to a local directory, which must be defined in the 
#     'meps_path' variable below. In this example, the local directory is  
#     called "C:/MEPS". Note that the path structure will differ on Mac and PC.  
# 
#
#  2. Call this code directly from an interactive R session. 
#
#     (a) If the ASCII (.dat) file has already been downloaded from the MEPS  
#         website and saved to a local directory, the following code can be run 
#         (after re-defining the 'meps_path' variable to point to the location 
#         of the h217.dat file.)
#
#           meps_path <- "C:/MEPS/h217.dat"  
#           source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h217/h217ru.txt")
#           head(h217) # view data
#
#
#     (b) Alternatively, the ASCII (.dat) file can be downloaded directly from
#         the MEPS website. The following code can be used to download and 
#         import the h217 data into R without having to manually download, 
#         unzip, and store the file on your local computer.
#
#           url <- "https://meps.ahrq.gov/mepsweb/data_files/pufs/h217dat.zip"
#           download.file(url, temp <- tempfile())
#
#           meps_path <- unzip(temp, exdir = tempdir())
#           source("https://meps.ahrq.gov/mepsweb/data_stats/download_data/pufs/h217/h217ru.txt")
#
#           unlink(temp)  # Unlink to delete temporary file
#
#           head(h217) # view data
#
# -----------------------------------------------------------------------------


# DEFINE 'meps_path' -----------------------------------------------------------
# 'meps_path' should point to the file path of the ASCII file (h217.dat) 
# Here, the 'exists' function checks whether meps_path is already defined. This
# feature is useful if calling this file from an external source.

if(!exists("meps_path")) 
  meps_path = "C:/MEPS/h217.dat"  


# INSTALL PACKAGES ------------------------------------------------------------
# Uncomment and run this portion if packages are not yet installed
#
# install.packages("readr")


# LOAD PACKAGES ---------------------------------------------------------------
# Run this for every new R session

library(readr)


# DATA FILE INFO --------------------------------------------------------------

# Define start and end positions to read fixed-width file 

pos_start <- 
  c(1, 8, 11, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 34,
    36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64,
    66, 68, 70, 72, 75, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96,
    98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120,
    122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144,
    146, 148, 150, 153, 156, 159, 162, 165, 168, 171, 173, 175,
    176, 178, 180, 182, 184, 186, 188, 190, 192, 194, 196, 198,
    200, 202, 204, 206, 208, 210, 214, 218, 222, 226, 230, 232,
    234, 236, 238, 240, 244, 248, 252, 256, 260, 262, 264, 268,
    272, 274, 276, 278, 280, 281, 283, 285, 287, 289, 291, 293,
    295, 297, 299, 301, 302, 304, 306, 308, 310, 312, 314, 316,
    318, 320, 322, 324, 326, 328, 330, 332, 334, 336, 338, 340,
    342, 344, 346, 348, 350, 354, 355, 356, 358, 359, 360, 361,
    362, 363, 364, 366, 368, 370, 372, 374, 376, 378, 381, 384,
    387, 390, 393, 396, 399, 402, 405, 408, 411, 414, 417, 420,
    423, 426, 428, 430, 432, 434, 436, 438, 440, 442, 444, 446,
    448, 450, 452, 454, 456, 458, 460, 462, 464, 466, 468, 471,
    473, 475, 478, 480, 483, 486, 489, 492, 495, 498, 501, 504,
    507, 510, 512, 514, 516, 518, 520, 522, 524, 526, 528, 530,
    532, 535, 537, 539, 541, 543, 545, 548, 550, 552, 554, 557,
    559, 561, 563, 566, 568, 570, 572, 575, 577, 579, 581, 583,
    585, 588, 590, 592, 594, 597, 599, 601, 603, 605, 607, 610,
    612, 614, 617, 620, 622, 624, 626, 628, 630, 632, 634, 636,
    638, 640, 642, 644, 646, 648, 650, 652, 654, 656, 658, 660,
    662, 664, 666, 668, 670, 673, 675, 677, 679, 681, 683, 686,
    688, 690, 693, 696, 698, 701, 703, 705, 707, 710, 712, 715,
    717, 719, 721, 724, 726, 728, 730, 733, 735, 737, 739, 742,
    744, 746, 748, 750, 752, 755, 757, 759, 761, 763, 765, 767,
    769, 771, 773, 775, 777, 779, 781, 783, 785, 787, 789, 791,
    793, 795, 797, 799, 801, 803, 805, 807, 809, 811, 813, 815,
    817, 819, 821, 823, 825, 827, 829, 831, 833, 835, 837, 839,
    841, 843, 845, 847, 849, 851, 853, 855, 857, 859, 862, 865,
    867, 870, 872, 874, 876, 878, 880, 883, 885, 887, 889, 891,
    893, 896, 898, 900, 902, 904, 906, 909, 911, 913, 915, 917,
    919, 922, 924, 926, 928, 930, 933, 936, 939, 942, 945, 948,
    951, 954, 957, 960, 963, 966, 969, 972, 974, 977, 979, 982,
    984, 986, 988, 990, 992, 995, 997, 999, 1001, 1003, 1005,
    1010, 1012, 1014, 1016, 1018, 1020, 1022, 1024, 1026, 1028,
    1030, 1032, 1034, 1036, 1038, 1040, 1042, 1044, 1047, 1049,
    1052, 1054, 1057, 1059, 1061, 1064, 1067, 1070, 1073, 1076,
    1079, 1082, 1085, 1088, 1091, 1094, 1097, 1100, 1103, 1106,
    1109, 1112, 1115, 1118, 1121, 1124, 1127, 1130, 1133, 1136,
    1139, 1142, 1145, 1151, 1157, 1163, 1169, 1171, 1173, 1176,
    1179, 1182, 1185, 1188, 1191, 1194, 1197, 1200, 1203, 1206,
    1209, 1212, 1215, 1218, 1221, 1224, 1227, 1230, 1233, 1236,
    1239, 1242, 1245, 1247, 1250, 1252, 1255, 1258, 1261, 1263,
    1266, 1269, 1271, 1274, 1277, 1280, 1283, 1286, 1288, 1291,
    1293, 1296, 1299, 1302, 1305, 1308, 1313, 1316, 1319, 1322,
    1325, 1328, 1331, 1334, 1337, 1340, 1343, 1346, 1349, 1352,
    1355, 1358, 1361, 1364, 1367, 1370, 1373, 1376, 1379, 1382,
    1385, 1388, 1391, 1394, 1397, 1400, 1403, 1406, 1409, 1413,
    1417, 1419, 1421, 1423, 1425, 1427, 1430, 1433, 1436, 1439,
    1442, 1445, 1448, 1451, 1454, 1457, 1460, 1463, 1466, 1469,
    1472, 1475, 1478, 1481, 1484, 1487, 1490, 1493, 1496, 1499,
    1502, 1505, 1508, 1511, 1514, 1517, 1520, 1523, 1526, 1529,
    1532, 1535, 1538, 1541, 1544, 1547, 1550, 1553, 1556, 1559,
    1562, 1564, 1567, 1570, 1573, 1575, 1578, 1580, 1582, 1584,
    1587, 1591, 1594, 1596, 1598, 1600, 1602, 1605, 1608, 1611,
    1614, 1617, 1620, 1623, 1626, 1629, 1632, 1635, 1638, 1641,
    1644, 1647, 1650, 1653, 1656, 1659, 1662, 1665, 1668, 1671,
    1674, 1677, 1680, 1683, 1686, 1689, 1692, 1695, 1698, 1701,
    1704, 1707, 1710, 1713, 1716, 1719, 1722, 1725, 1728, 1731,
    1734, 1737, 1740, 1743, 1746, 1749, 1752, 1755, 1758, 1760,
    1762, 1764, 1766, 1768, 1770, 1772, 1774, 1776, 1778, 1781,
    1784, 1787, 1790, 1793, 1796, 1799, 1802, 1805, 1808, 1810,
    1812, 1814, 1816, 1818, 1820, 1822, 1824, 1826, 1828, 1830,
    1832, 1834, 1836, 1838, 1840, 1842, 1844, 1846, 1848, 1850,
    1852, 1854, 1856, 1858, 1860, 1862, 1864, 1866, 1868, 1870,
    1872, 1874, 1876, 1878, 1880, 1882, 1884, 1886, 1888, 1890,
    1892, 1894, 1896, 1898, 1900, 1902, 1904, 1906, 1908, 1910,
    1912, 1914, 1916, 1918, 1920, 1922, 1924, 1926, 1928, 1931,
    1934, 1937, 1940, 1943, 1945, 1948, 1951, 1954, 1957, 1960,
    1963, 1965, 1967, 1973, 1979, 1985, 1991, 1997, 1999, 2001,
    2002, 2004, 2006, 2009, 2012, 2015, 2018, 2021, 2023, 2026,
    2029, 2032, 2035, 2040, 2046, 2052, 2058, 2064, 2067, 2070,
    2073, 2076, 2079, 2082, 2085, 2088, 2091, 2094, 2097, 2100,
    2103, 2106, 2109, 2112, 2115, 2118, 2121, 2124, 2127, 2130,
    2133, 2136, 2139, 2142, 2145, 2148, 2151, 2154, 2157, 2160,
    2163, 2166, 2169, 2172, 2175, 2178, 2181, 2184, 2187, 2190,
    2193, 2196, 2199, 2202, 2205, 2208, 2211, 2214, 2216, 2218,
    2221, 2224, 2226, 2229, 2232, 2235, 2238, 2241, 2244, 2247,
    2250, 2253, 2256, 2259, 2262, 2265, 2269, 2273, 2277, 2281,
    2285, 2288, 2291, 2294, 2297, 2300, 2303, 2306, 2309, 2312,
    2315, 2318, 2321, 2324, 2327, 2330, 2333, 2336, 2339, 2342,
    2345, 2348, 2351, 2354, 2357, 2360, 2363, 2366, 2369, 2372,
    2375, 2378, 2381, 2384, 2387, 2390, 2393, 2396, 2399, 2402,
    2405, 2408, 2411, 2414, 2417, 2420, 2423, 2426, 2429, 2432,
    2435, 2438, 2441, 2443, 2445, 2447, 2449, 2451, 2453, 2455,
    2457, 2459, 2461, 2464, 2467, 2470, 2473, 2476, 2478, 2480,
    2482, 2484, 2486, 2488, 2490, 2492, 2494, 2496, 2498, 2500,
    2502, 2504, 2506, 2509, 2512, 2515, 2518, 2521, 2523, 2525,
    2527, 2529, 2531, 2533, 2535, 2537, 2539, 2541, 2543, 2545,
    2547, 2549, 2551, 2557, 2563, 2569, 2575, 2581, 2583, 2585,
    2587, 2589, 2591, 2593, 2595, 2597, 2599, 2601, 2603, 2605,
    2607, 2609, 2611, 2613, 2615, 2617, 2619, 2621, 2623, 2625,
    2627, 2629, 2631, 2633, 2635, 2637, 2639, 2641, 2643, 2645,
    2647, 2649, 2651, 2653, 2655, 2657, 2659, 2661, 2663, 2665,
    2667, 2669, 2671, 2674, 2677, 2679, 2681, 2683, 2685, 2687,
    2689, 2693, 2697, 2703, 2709, 2715, 2721, 2723, 2725, 2732,
    2739, 2745, 2751, 2753, 2755, 2761, 2767, 2769, 2771, 2776,
    2780, 2782, 2784, 2789, 2794, 2796, 2798, 2803, 2808, 2810,
    2812, 2817, 2822, 2824, 2826, 2833, 2839, 2841, 2843, 2848,
    2853, 2855, 2857, 2862, 2867, 2869, 2871, 2878, 2884, 2886,
    2888, 2893, 2898, 2900, 2902, 2907, 2913, 2915, 2917, 2922,
    2927, 2929, 2931, 2936, 2941, 2943, 2945, 2950, 2955, 2957,
    2959, 2964, 2969, 2971, 2973, 2977, 2981, 2983, 2985, 2991,
    2996, 2998, 3000, 3009, 3018, 3020, 3022, 3024, 3026, 3028,
    3030, 3032, 3034, 3036, 3038, 3040, 3042, 3044, 3046, 3048,
    3050, 3052, 3054, 3056, 3058, 3060, 3062, 3064, 3066, 3068,
    3070, 3072, 3074, 3076, 3078, 3080, 3082, 3084, 3086, 3088,
    3090, 3092, 3094, 3096, 3098, 3100, 3102, 3104, 3106, 3108,
    3110, 3112, 3114, 3116, 3118, 3120, 3122, 3124, 3126, 3128,
    3130, 3132, 3134, 3136, 3138, 3140, 3142, 3144, 3146, 3148,
    3150, 3152, 3154, 3156, 3158, 3160, 3162, 3164, 3166, 3168,
    3170, 3172, 3174, 3176, 3178, 3180, 3182, 3184, 3186, 3188,
    3190, 3192, 3194, 3196, 3198, 3200, 3202, 3204, 3206, 3208,
    3210, 3212, 3214, 3216, 3218, 3220, 3222, 3224, 3226, 3228,
    3230, 3232, 3234, 3236, 3238, 3240, 3242, 3244, 3246, 3248,
    3250, 3252, 3254, 3256, 3258, 3260, 3262, 3264, 3266, 3268,
    3270, 3272, 3274, 3276, 3278, 3280, 3282, 3284, 3286, 3288,
    3290, 3292, 3294, 3296, 3298, 3300, 3302, 3304, 3306, 3308,
    3310, 3312, 3314, 3316, 3318, 3320, 3322, 3324, 3326, 3328,
    3330, 3332, 3334, 3336, 3338, 3340, 3342, 3344, 3346, 3348,
    3350, 3352, 3354, 3356, 3358, 3360, 3362, 3364, 3366, 3368,
    3370, 3372, 3374, 3376, 3378, 3380, 3382, 3384, 3386, 3388,
    3390, 3392, 3394, 3396, 3398, 3400, 3402, 3404, 3406, 3408,
    3410, 3412, 3414, 3416, 3418, 3420, 3422, 3424, 3426, 3428,
    3430, 3432, 3434, 3436, 3438, 3440, 3442, 3444, 3446, 3448,
    3450, 3452, 3454, 3456, 3458, 3460, 3462, 3464, 3466, 3468,
    3470, 3472, 3474, 3476, 3478, 3480, 3482, 3484, 3486, 3488,
    3490, 3492, 3494, 3496, 3498, 3500, 3502, 3504, 3506, 3508,
    3510, 3512, 3514, 3516, 3518, 3520, 3522, 3524, 3526, 3528,
    3530, 3532, 3534, 3536, 3538, 3540, 3542, 3544, 3546, 3548,
    3550, 3552, 3554, 3556, 3558, 3560, 3562, 3564, 3566, 3568,
    3570, 3572, 3574, 3576, 3578, 3580, 3582, 3584, 3586, 3588,
    3590, 3592, 3594, 3596, 3598, 3600, 3602, 3604, 3606, 3608,
    3610, 3612, 3614, 3616, 3618, 3620, 3622, 3624, 3626, 3628,
    3630, 3632, 3634, 3636, 3638, 3640, 3642, 3644, 3646, 3648,
    3650, 3652, 3654, 3656, 3658, 3660, 3662, 3664, 3666, 3668,
    3670, 3672, 3674, 3676, 3678, 3680, 3682, 3684, 3686, 3688,
    3690, 3692, 3694, 3696, 3698, 3700, 3702, 3704, 3706, 3708,
    3710, 3712, 3714, 3716, 3718, 3720, 3722, 3724, 3726, 3728,
    3730, 3732, 3734, 3736, 3738, 3740, 3742, 3744, 3746, 3748,
    3750, 3752, 3754, 3756, 3758, 3760, 3762, 3764, 3766, 3768,
    3770, 3772, 3774, 3776, 3778, 3780, 3782, 3784, 3786, 3788,
    3790, 3792, 3794, 3796, 3798, 3800, 3802, 3804, 3806, 3808,
    3810, 3812, 3814, 3816, 3818, 3820, 3822, 3824, 3826, 3828,
    3830, 3832, 3834, 3836, 3838, 3840, 3842, 3844, 3846, 3848,
    3850, 3852, 3854, 3856, 3858, 3860, 3862, 3864, 3866, 3868,
    3870, 3872, 3874, 3876, 3878, 3880, 3882, 3884, 3886, 3888,
    3890, 3892, 3894, 3896, 3898, 3900, 3902, 3904, 3906, 3908,
    3910, 3912, 3914, 3916, 3918, 3920, 3922, 3924, 3926, 3928,
    3930, 3932, 3934, 3936, 3938, 3940, 3942, 3944, 3946, 3948,
    3950, 3952, 3954, 3956, 3958, 3960, 3962, 3964, 3966, 3968,
    3970, 3972, 3974, 3976, 3978, 3980, 3982, 3984, 3986, 3988,
    3990, 3992, 3994, 3996, 3998, 4000, 4002, 4004, 4006, 4008,
    4010, 4012, 4014, 4016, 4018, 4020, 4022, 4024, 4026, 4028,
    4030, 4032, 4034, 4036, 4038, 4040, 4042, 4044, 4046, 4048,
    4050, 4052, 4054, 4056, 4058, 4060, 4062, 4064, 4066, 4068,
    4070, 4072, 4074, 4076, 4078, 4080, 4082, 4084, 4086, 4088,
    4090, 4092, 4094, 4096, 4098, 4100, 4102, 4104, 4106, 4108,
    4110, 4112, 4114, 4116, 4118, 4120, 4122, 4124, 4126, 4128,
    4130, 4132, 4134, 4136, 4138, 4140, 4142, 4144, 4146, 4148,
    4150, 4152, 4154, 4156, 4158, 4160, 4162, 4164, 4166, 4168,
    4170, 4172, 4174, 4176, 4178, 4180, 4182, 4184, 4186, 4188,
    4190, 4192, 4194, 4196, 4198, 4200, 4202, 4204, 4206, 4208,
    4210, 4212, 4214, 4216, 4218, 4220, 4222, 4224, 4226, 4228,
    4230, 4232, 4234, 4236, 4238, 4240, 4242, 4244, 4246, 4248,
    4250, 4252, 4254, 4256, 4258, 4260, 4262, 4264, 4266, 4268,
    4270, 4272, 4274, 4276, 4278, 4280, 4282, 4284, 4286, 4288,
    4290, 4292, 4294, 4296, 4298, 4300, 4302, 4304, 4306, 4308,
    4310, 4312, 4314, 4316, 4318, 4320, 4322, 4324, 4326, 4328,
    4330, 4332, 4334, 4336, 4338, 4340, 4342, 4344, 4346, 4348,
    4350, 4352, 4354, 4356, 4358, 4360, 4362, 4364, 4366, 4368,
    4370, 4373, 4376, 4379, 4382, 4385, 4388, 4391, 4394, 4397,
    4400, 4403, 4406, 4409, 4412, 4415, 4418, 4421, 4424, 4427,
    4430, 4433, 4436, 4439, 4442, 4445, 4448, 4451, 4454, 4457,
    4460, 4463, 4466, 4469, 4472, 4475, 4478, 4481, 4484, 4487,
    4490, 4493, 4496, 4498, 4500, 4503, 4506, 4510, 4514, 4516,
    4518, 4520, 4522, 4524, 4526, 4528, 4530, 4532, 4534, 4536,
    4538, 4540, 4542, 4544, 4546, 4548, 4550, 4552, 4554, 4556,
    4558, 4560, 4562, 4564, 4566, 4568, 4570, 4572, 4574, 4576,
    4578, 4580, 4582, 4584, 4586, 4588, 4590, 4592, 4594, 4596,
    4598, 4600, 4602, 4604, 4606, 4608, 4610, 4612, 4614, 4616,
    4618, 4620, 4622, 4624, 4626, 4628, 4630, 4632, 4634, 4636,
    4638, 4640, 4642, 4644, 4646, 4648, 4650, 4652, 4654, 4656,
    4658, 4660, 4662, 4664, 4666, 4668, 4670, 4672, 4674, 4676,
    4678, 4680, 4682, 4684, 4686, 4688, 4690, 4692, 4694, 4696,
    4698, 4700, 4702, 4704, 4706, 4708, 4710, 4712, 4714, 4716,
    4718, 4720, 4722, 4724, 4726, 4728, 4730, 4732, 4734, 4736,
    4738, 4740, 4742, 4744, 4746, 4748, 4750, 4752, 4754, 4756,
    4758, 4760, 4762, 4764, 4766, 4768, 4770, 4772, 4774, 4776,
    4778, 4780, 4782, 4784, 4786, 4788, 4790, 4792, 4794, 4796,
    4798, 4800, 4802, 4804, 4806, 4808, 4810, 4812, 4814, 4816,
    4818, 4820, 4822, 4824, 4826, 4828, 4830, 4832, 4834, 4836,
    4838, 4840, 4842, 4844, 4846, 4848, 4850, 4852, 4854, 4856,
    4858, 4860, 4862, 4864, 4866, 4868, 4870, 4872, 4874, 4876,
    4878, 4880, 4882, 4884, 4886, 4888, 4890, 4892, 4894, 4896,
    4898, 4900, 4902, 4904, 4906, 4908, 4910, 4912, 4914, 4916,
    4918, 4920, 4922, 4924, 4926, 4928, 4930, 4932, 4934, 4936,
    4938, 4940, 4942, 4944, 4946, 4948, 4950, 4952, 4954, 4956,
    4958, 4960, 4962, 4964, 4966, 4968, 4970, 4972, 4974, 4976,
    4978, 4980, 4982, 4984, 4986, 4988, 4990, 4992, 4994, 4996,
    4998, 5000, 5002, 5004, 5006, 5008, 5011, 5014, 5017, 5020,
    5023, 5030, 5037, 5043, 5049, 5055, 5061, 5067, 5073, 5079,
    5085, 5091, 5097, 5103, 5109, 5114, 5119, 5124, 5129, 5134,
    5139, 5144, 5149, 5155, 5160, 5166, 5171, 5177, 5183, 5189,
    5194, 5197, 5200, 5207, 5213, 5219, 5225, 5230, 5236, 5241,
    5246, 5251, 5256, 5262, 5268, 5273, 5278, 5282, 5287, 5291,
    5296, 5300, 5304, 5309, 5314, 5319, 5323, 5328, 5333, 5339,
    5345, 5350, 5355, 5358, 5361, 5367, 5373, 5379, 5385, 5390,
    5396, 5401, 5406, 5411, 5416, 5422, 5428, 5433, 5438, 5442,
    5447, 5451, 5456, 5460, 5464, 5469, 5474, 5479, 5483, 5488,
    5493, 5499, 5505, 5510, 5515, 5518, 5521, 5528, 5535, 5540,
    5546, 5551, 5556, 5561, 5566, 5571, 5576, 5581, 5587, 5592,
    5597, 5601, 5606, 5609, 5613, 5617, 5621, 5625, 5630, 5634,
    5638, 5643, 5648, 5653, 5659, 5664, 5669, 5676, 5683, 5688,
    5694, 5699, 5704, 5709, 5714, 5719, 5724, 5729, 5735, 5740,
    5745, 5749, 5754, 5757, 5761, 5765, 5769, 5773, 5777, 5781,
    5785, 5790, 5795, 5800, 5806, 5811, 5816, 5821, 5826, 5831,
    5836, 5840, 5844, 5848, 5852, 5856, 5861, 5866, 5871, 5875,
    5878, 5882, 5885, 5887, 5889, 5892, 5895, 5899, 5903, 5907,
    5911, 5916, 5920, 5925, 5930, 5935, 5939, 5941, 5944, 5951,
    5958, 5963, 5969, 5974, 5979, 5984, 5989, 5994, 5999, 6004,
    6010, 6015, 6020, 6024, 6029, 6032, 6036, 6040, 6044, 6048,
    6052, 6056, 6059, 6064, 6069, 6074, 6080, 6085, 6090, 6095,
    6100, 6105, 6110, 6114, 6118, 6122, 6126, 6130, 6134, 6139,
    6144, 6148, 6151, 6155, 6158, 6160, 6162, 6165, 6168, 6172,
    6176, 6180, 6184, 6189, 6193, 6198, 6203, 6208, 6212, 6214,
    6216, 6222, 6228, 6233, 6238, 6242, 6246, 6251, 6256, 6261,
    6266, 6271, 6276, 6280, 6285, 6289, 6294, 6298, 6302, 6306,
    6311, 6316, 6320, 6324, 6327, 6331, 6336, 6341, 6346, 6350,
    6355, 6361, 6367, 6372, 6377, 6381, 6385, 6390, 6395, 6400,
    6405, 6410, 6415, 6419, 6424, 6428, 6433, 6437, 6441, 6445,
    6450, 6455, 6459, 6463, 6466, 6470, 6475, 6480, 6485, 6489,
    6494, 6498, 6502, 6507, 6512, 6516, 6520, 6524, 6528, 6532,
    6536, 6540, 6544, 6547, 6551, 6555, 6559, 6561, 6563, 6566,
    6569, 6572, 6576, 6580, 6583, 6587, 6591, 6595, 6599, 6603,
    6607, 6609, 6611, 6617, 6623, 6630, 6637, 6642, 6647, 6653,
    6659, 6665, 6671, 6677, 6683, 6689, 6695, 6700, 6705, 6710,
    6715, 6720, 6725, 6730, 6735, 6740, 6745, 6751, 6756, 6762,
    6768, 6774, 6779, 6785, 6791, 6798, 6805, 6810, 6815, 6821,
    6827, 6833, 6839, 6845, 6851, 6857, 6863, 6868, 6873, 6878,
    6883, 6888, 6893, 6898, 6903, 6908, 6913, 6919, 6924, 6930,
    6936, 6942, 6947, 6952, 6957, 6962, 6967, 6971, 6975, 6980,
    6985, 6989, 6993, 6998, 7003, 7007, 7012, 7016, 7020, 7022,
    7024, 7028, 7031, 7035, 7040, 7044, 7048, 7053, 7057, 7062,
    7067, 7072, 7076, 7079, 7082, 7084, 7086, 7091, 7096, 7101,
    7106, 7111, 7116, 7120, 7125, 7130, 7135, 7140, 7145, 7149,
    7153, 7157, 7161, 7165, 7170, 7173, 7176, 7179, 7182, 7186,
    7189, 7193, 7197, 7202, 7207, 7211, 7216, 7219, 7222, 7225,
    7228, 7234, 7240, 7246, 7252, 7257, 7263, 7269, 7274, 7280,
    7286, 7291, 7296, 7301, 7306, 7308, 7313, 7315, 7317, 7322,
    7327, 7329, 7333, 7337, 7341, 7345, 7349, 7354, 7359, 7364,
    7369, 7372, 7375, 7381, 7387, 7393, 7399, 7405, 7411, 7416,
    7421, 7425, 7429, 7433, 7438, 7441, 7445, 7447, 7449, 7451,
    7453, 7456, 7458, 7460, 7462, 7464, 7466, 7468, 7471, 7475,
    7480, 7483, 7486, 7489, 7492, 7496, 7500, 7504, 7508, 7512,
    7516, 7520, 7524, 7528, 7532, 7536, 7540, 7543, 7547, 7550,
    7553, 7556, 7559, 7561, 7563, 7565, 7567, 7571, 7574, 7577,
    7580, 7584, 7588, 7592, 7595, 7600, 7605, 7610, 7615, 7620,
    7625, 7630, 7635, 7639, 7644, 7649, 7654, 7658, 7662, 7666,
    7671, 7675, 7679, 7683, 7686, 7689, 7693, 7697, 7701, 7705,
    7709, 7714, 7719, 7723, 7727, 7730, 7733, 7739, 7745, 7750,
    7755, 7761, 7767, 7773, 7779, 7785, 7791, 7796, 7801, 7806,
    7811, 7815, 7820, 7825, 7830, 7834, 7838, 7844, 7848, 7854,
    7858, 7864, 7870, 7876, 7881, 7894, 7907, 7911)

pos_end <- 
  c(7, 10, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 35,
    37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65,
    67, 69, 71, 74, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97,
    99, 101, 103, 105, 107, 109, 111, 113, 115, 117, 119, 121,
    123, 125, 127, 129, 131, 133, 135, 137, 139, 141, 143, 145,
    147, 149, 152, 155, 158, 161, 164, 167, 170, 172, 174, 175,
    177, 179, 181, 183, 185, 187, 189, 191, 193, 195, 197, 199,
    201, 203, 205, 207, 209, 213, 217, 221, 225, 229, 231, 233,
    235, 237, 239, 243, 247, 251, 255, 259, 261, 263, 267, 271,
    273, 275, 277, 279, 280, 282, 284, 286, 288, 290, 292, 294,
    296, 298, 300, 301, 303, 305, 307, 309, 311, 313, 315, 317,
    319, 321, 323, 325, 327, 329, 331, 333, 335, 337, 339, 341,
    343, 345, 347, 349, 353, 354, 355, 357, 358, 359, 360, 361,
    362, 363, 365, 367, 369, 371, 373, 375, 377, 380, 383, 386,
    389, 392, 395, 398, 401, 404, 407, 410, 413, 416, 419, 422,
    425, 427, 429, 431, 433, 435, 437, 439, 441, 443, 445, 447,
    449, 451, 453, 455, 457, 459, 461, 463, 465, 467, 470, 472,
    474, 477, 479, 482, 485, 488, 491, 494, 497, 500, 503, 506,
    509, 511, 513, 515, 517, 519, 521, 523, 525, 527, 529, 531,
    534, 536, 538, 540, 542, 544, 547, 549, 551, 553, 556, 558,
    560, 562, 565, 567, 569, 571, 574, 576, 578, 580, 582, 584,
    587, 589, 591, 593, 596, 598, 600, 602, 604, 606, 609, 611,
    613, 616, 619, 621, 623, 625, 627, 629, 631, 633, 635, 637,
    639, 641, 643, 645, 647, 649, 651, 653, 655, 657, 659, 661,
    663, 665, 667, 669, 672, 674, 676, 678, 680, 682, 685, 687,
    689, 692, 695, 697, 700, 702, 704, 706, 709, 711, 714, 716,
    718, 720, 723, 725, 727, 729, 732, 734, 736, 738, 741, 743,
    745, 747, 749, 751, 754, 756, 758, 760, 762, 764, 766, 768,
    770, 772, 774, 776, 778, 780, 782, 784, 786, 788, 790, 792,
    794, 796, 798, 800, 802, 804, 806, 808, 810, 812, 814, 816,
    818, 820, 822, 824, 826, 828, 830, 832, 834, 836, 838, 840,
    842, 844, 846, 848, 850, 852, 854, 856, 858, 861, 864, 866,
    869, 871, 873, 875, 877, 879, 882, 884, 886, 888, 890, 892,
    895, 897, 899, 901, 903, 905, 908, 910, 912, 914, 916, 918,
    921, 923, 925, 927, 929, 932, 935, 938, 941, 944, 947, 950,
    953, 956, 959, 962, 965, 968, 971, 973, 976, 978, 981, 983,
    985, 987, 989, 991, 994, 996, 998, 1000, 1002, 1004, 1009,
    1011, 1013, 1015, 1017, 1019, 1021, 1023, 1025, 1027, 1029,
    1031, 1033, 1035, 1037, 1039, 1041, 1043, 1046, 1048, 1051,
    1053, 1056, 1058, 1060, 1063, 1066, 1069, 1072, 1075, 1078,
    1081, 1084, 1087, 1090, 1093, 1096, 1099, 1102, 1105, 1108,
    1111, 1114, 1117, 1120, 1123, 1126, 1129, 1132, 1135, 1138,
    1141, 1144, 1150, 1156, 1162, 1168, 1170, 1172, 1175, 1178,
    1181, 1184, 1187, 1190, 1193, 1196, 1199, 1202, 1205, 1208,
    1211, 1214, 1217, 1220, 1223, 1226, 1229, 1232, 1235, 1238,
    1241, 1244, 1246, 1249, 1251, 1254, 1257, 1260, 1262, 1265,
    1268, 1270, 1273, 1276, 1279, 1282, 1285, 1287, 1290, 1292,
    1295, 1298, 1301, 1304, 1307, 1312, 1315, 1318, 1321, 1324,
    1327, 1330, 1333, 1336, 1339, 1342, 1345, 1348, 1351, 1354,
    1357, 1360, 1363, 1366, 1369, 1372, 1375, 1378, 1381, 1384,
    1387, 1390, 1393, 1396, 1399, 1402, 1405, 1408, 1412, 1416,
    1418, 1420, 1422, 1424, 1426, 1429, 1432, 1435, 1438, 1441,
    1444, 1447, 1450, 1453, 1456, 1459, 1462, 1465, 1468, 1471,
    1474, 1477, 1480, 1483, 1486, 1489, 1492, 1495, 1498, 1501,
    1504, 1507, 1510, 1513, 1516, 1519, 1522, 1525, 1528, 1531,
    1534, 1537, 1540, 1543, 1546, 1549, 1552, 1555, 1558, 1561,
    1563, 1566, 1569, 1572, 1574, 1577, 1579, 1581, 1583, 1586,
    1590, 1593, 1595, 1597, 1599, 1601, 1604, 1607, 1610, 1613,
    1616, 1619, 1622, 1625, 1628, 1631, 1634, 1637, 1640, 1643,
    1646, 1649, 1652, 1655, 1658, 1661, 1664, 1667, 1670, 1673,
    1676, 1679, 1682, 1685, 1688, 1691, 1694, 1697, 1700, 1703,
    1706, 1709, 1712, 1715, 1718, 1721, 1724, 1727, 1730, 1733,
    1736, 1739, 1742, 1745, 1748, 1751, 1754, 1757, 1759, 1761,
    1763, 1765, 1767, 1769, 1771, 1773, 1775, 1777, 1780, 1783,
    1786, 1789, 1792, 1795, 1798, 1801, 1804, 1807, 1809, 1811,
    1813, 1815, 1817, 1819, 1821, 1823, 1825, 1827, 1829, 1831,
    1833, 1835, 1837, 1839, 1841, 1843, 1845, 1847, 1849, 1851,
    1853, 1855, 1857, 1859, 1861, 1863, 1865, 1867, 1869, 1871,
    1873, 1875, 1877, 1879, 1881, 1883, 1885, 1887, 1889, 1891,
    1893, 1895, 1897, 1899, 1901, 1903, 1905, 1907, 1909, 1911,
    1913, 1915, 1917, 1919, 1921, 1923, 1925, 1927, 1930, 1933,
    1936, 1939, 1942, 1944, 1947, 1950, 1953, 1956, 1959, 1962,
    1964, 1966, 1972, 1978, 1984, 1990, 1996, 1998, 2000, 2001,
    2003, 2005, 2008, 2011, 2014, 2017, 2020, 2022, 2025, 2028,
    2031, 2034, 2039, 2045, 2051, 2057, 2063, 2066, 2069, 2072,
    2075, 2078, 2081, 2084, 2087, 2090, 2093, 2096, 2099, 2102,
    2105, 2108, 2111, 2114, 2117, 2120, 2123, 2126, 2129, 2132,
    2135, 2138, 2141, 2144, 2147, 2150, 2153, 2156, 2159, 2162,
    2165, 2168, 2171, 2174, 2177, 2180, 2183, 2186, 2189, 2192,
    2195, 2198, 2201, 2204, 2207, 2210, 2213, 2215, 2217, 2220,
    2223, 2225, 2228, 2231, 2234, 2237, 2240, 2243, 2246, 2249,
    2252, 2255, 2258, 2261, 2264, 2268, 2272, 2276, 2280, 2284,
    2287, 2290, 2293, 2296, 2299, 2302, 2305, 2308, 2311, 2314,
    2317, 2320, 2323, 2326, 2329, 2332, 2335, 2338, 2341, 2344,
    2347, 2350, 2353, 2356, 2359, 2362, 2365, 2368, 2371, 2374,
    2377, 2380, 2383, 2386, 2389, 2392, 2395, 2398, 2401, 2404,
    2407, 2410, 2413, 2416, 2419, 2422, 2425, 2428, 2431, 2434,
    2437, 2440, 2442, 2444, 2446, 2448, 2450, 2452, 2454, 2456,
    2458, 2460, 2463, 2466, 2469, 2472, 2475, 2477, 2479, 2481,
    2483, 2485, 2487, 2489, 2491, 2493, 2495, 2497, 2499, 2501,
    2503, 2505, 2508, 2511, 2514, 2517, 2520, 2522, 2524, 2526,
    2528, 2530, 2532, 2534, 2536, 2538, 2540, 2542, 2544, 2546,
    2548, 2550, 2556, 2562, 2568, 2574, 2580, 2582, 2584, 2586,
    2588, 2590, 2592, 2594, 2596, 2598, 2600, 2602, 2604, 2606,
    2608, 2610, 2612, 2614, 2616, 2618, 2620, 2622, 2624, 2626,
    2628, 2630, 2632, 2634, 2636, 2638, 2640, 2642, 2644, 2646,
    2648, 2650, 2652, 2654, 2656, 2658, 2660, 2662, 2664, 2666,
    2668, 2670, 2673, 2676, 2678, 2680, 2682, 2684, 2686, 2688,
    2692, 2696, 2702, 2708, 2714, 2720, 2722, 2724, 2731, 2738,
    2744, 2750, 2752, 2754, 2760, 2766, 2768, 2770, 2775, 2779,
    2781, 2783, 2788, 2793, 2795, 2797, 2802, 2807, 2809, 2811,
    2816, 2821, 2823, 2825, 2832, 2838, 2840, 2842, 2847, 2852,
    2854, 2856, 2861, 2866, 2868, 2870, 2877, 2883, 2885, 2887,
    2892, 2897, 2899, 2901, 2906, 2912, 2914, 2916, 2921, 2926,
    2928, 2930, 2935, 2940, 2942, 2944, 2949, 2954, 2956, 2958,
    2963, 2968, 2970, 2972, 2976, 2980, 2982, 2984, 2990, 2995,
    2997, 2999, 3008, 3017, 3019, 3021, 3023, 3025, 3027, 3029,
    3031, 3033, 3035, 3037, 3039, 3041, 3043, 3045, 3047, 3049,
    3051, 3053, 3055, 3057, 3059, 3061, 3063, 3065, 3067, 3069,
    3071, 3073, 3075, 3077, 3079, 3081, 3083, 3085, 3087, 3089,
    3091, 3093, 3095, 3097, 3099, 3101, 3103, 3105, 3107, 3109,
    3111, 3113, 3115, 3117, 3119, 3121, 3123, 3125, 3127, 3129,
    3131, 3133, 3135, 3137, 3139, 3141, 3143, 3145, 3147, 3149,
    3151, 3153, 3155, 3157, 3159, 3161, 3163, 3165, 3167, 3169,
    3171, 3173, 3175, 3177, 3179, 3181, 3183, 3185, 3187, 3189,
    3191, 3193, 3195, 3197, 3199, 3201, 3203, 3205, 3207, 3209,
    3211, 3213, 3215, 3217, 3219, 3221, 3223, 3225, 3227, 3229,
    3231, 3233, 3235, 3237, 3239, 3241, 3243, 3245, 3247, 3249,
    3251, 3253, 3255, 3257, 3259, 3261, 3263, 3265, 3267, 3269,
    3271, 3273, 3275, 3277, 3279, 3281, 3283, 3285, 3287, 3289,
    3291, 3293, 3295, 3297, 3299, 3301, 3303, 3305, 3307, 3309,
    3311, 3313, 3315, 3317, 3319, 3321, 3323, 3325, 3327, 3329,
    3331, 3333, 3335, 3337, 3339, 3341, 3343, 3345, 3347, 3349,
    3351, 3353, 3355, 3357, 3359, 3361, 3363, 3365, 3367, 3369,
    3371, 3373, 3375, 3377, 3379, 3381, 3383, 3385, 3387, 3389,
    3391, 3393, 3395, 3397, 3399, 3401, 3403, 3405, 3407, 3409,
    3411, 3413, 3415, 3417, 3419, 3421, 3423, 3425, 3427, 3429,
    3431, 3433, 3435, 3437, 3439, 3441, 3443, 3445, 3447, 3449,
    3451, 3453, 3455, 3457, 3459, 3461, 3463, 3465, 3467, 3469,
    3471, 3473, 3475, 3477, 3479, 3481, 3483, 3485, 3487, 3489,
    3491, 3493, 3495, 3497, 3499, 3501, 3503, 3505, 3507, 3509,
    3511, 3513, 3515, 3517, 3519, 3521, 3523, 3525, 3527, 3529,
    3531, 3533, 3535, 3537, 3539, 3541, 3543, 3545, 3547, 3549,
    3551, 3553, 3555, 3557, 3559, 3561, 3563, 3565, 3567, 3569,
    3571, 3573, 3575, 3577, 3579, 3581, 3583, 3585, 3587, 3589,
    3591, 3593, 3595, 3597, 3599, 3601, 3603, 3605, 3607, 3609,
    3611, 3613, 3615, 3617, 3619, 3621, 3623, 3625, 3627, 3629,
    3631, 3633, 3635, 3637, 3639, 3641, 3643, 3645, 3647, 3649,
    3651, 3653, 3655, 3657, 3659, 3661, 3663, 3665, 3667, 3669,
    3671, 3673, 3675, 3677, 3679, 3681, 3683, 3685, 3687, 3689,
    3691, 3693, 3695, 3697, 3699, 3701, 3703, 3705, 3707, 3709,
    3711, 3713, 3715, 3717, 3719, 3721, 3723, 3725, 3727, 3729,
    3731, 3733, 3735, 3737, 3739, 3741, 3743, 3745, 3747, 3749,
    3751, 3753, 3755, 3757, 3759, 3761, 3763, 3765, 3767, 3769,
    3771, 3773, 3775, 3777, 3779, 3781, 3783, 3785, 3787, 3789,
    3791, 3793, 3795, 3797, 3799, 3801, 3803, 3805, 3807, 3809,
    3811, 3813, 3815, 3817, 3819, 3821, 3823, 3825, 3827, 3829,
    3831, 3833, 3835, 3837, 3839, 3841, 3843, 3845, 3847, 3849,
    3851, 3853, 3855, 3857, 3859, 3861, 3863, 3865, 3867, 3869,
    3871, 3873, 3875, 3877, 3879, 3881, 3883, 3885, 3887, 3889,
    3891, 3893, 3895, 3897, 3899, 3901, 3903, 3905, 3907, 3909,
    3911, 3913, 3915, 3917, 3919, 3921, 3923, 3925, 3927, 3929,
    3931, 3933, 3935, 3937, 3939, 3941, 3943, 3945, 3947, 3949,
    3951, 3953, 3955, 3957, 3959, 3961, 3963, 3965, 3967, 3969,
    3971, 3973, 3975, 3977, 3979, 3981, 3983, 3985, 3987, 3989,
    3991, 3993, 3995, 3997, 3999, 4001, 4003, 4005, 4007, 4009,
    4011, 4013, 4015, 4017, 4019, 4021, 4023, 4025, 4027, 4029,
    4031, 4033, 4035, 4037, 4039, 4041, 4043, 4045, 4047, 4049,
    4051, 4053, 4055, 4057, 4059, 4061, 4063, 4065, 4067, 4069,
    4071, 4073, 4075, 4077, 4079, 4081, 4083, 4085, 4087, 4089,
    4091, 4093, 4095, 4097, 4099, 4101, 4103, 4105, 4107, 4109,
    4111, 4113, 4115, 4117, 4119, 4121, 4123, 4125, 4127, 4129,
    4131, 4133, 4135, 4137, 4139, 4141, 4143, 4145, 4147, 4149,
    4151, 4153, 4155, 4157, 4159, 4161, 4163, 4165, 4167, 4169,
    4171, 4173, 4175, 4177, 4179, 4181, 4183, 4185, 4187, 4189,
    4191, 4193, 4195, 4197, 4199, 4201, 4203, 4205, 4207, 4209,
    4211, 4213, 4215, 4217, 4219, 4221, 4223, 4225, 4227, 4229,
    4231, 4233, 4235, 4237, 4239, 4241, 4243, 4245, 4247, 4249,
    4251, 4253, 4255, 4257, 4259, 4261, 4263, 4265, 4267, 4269,
    4271, 4273, 4275, 4277, 4279, 4281, 4283, 4285, 4287, 4289,
    4291, 4293, 4295, 4297, 4299, 4301, 4303, 4305, 4307, 4309,
    4311, 4313, 4315, 4317, 4319, 4321, 4323, 4325, 4327, 4329,
    4331, 4333, 4335, 4337, 4339, 4341, 4343, 4345, 4347, 4349,
    4351, 4353, 4355, 4357, 4359, 4361, 4363, 4365, 4367, 4369,
    4372, 4375, 4378, 4381, 4384, 4387, 4390, 4393, 4396, 4399,
    4402, 4405, 4408, 4411, 4414, 4417, 4420, 4423, 4426, 4429,
    4432, 4435, 4438, 4441, 4444, 4447, 4450, 4453, 4456, 4459,
    4462, 4465, 4468, 4471, 4474, 4477, 4480, 4483, 4486, 4489,
    4492, 4495, 4497, 4499, 4502, 4505, 4509, 4513, 4515, 4517,
    4519, 4521, 4523, 4525, 4527, 4529, 4531, 4533, 4535, 4537,
    4539, 4541, 4543, 4545, 4547, 4549, 4551, 4553, 4555, 4557,
    4559, 4561, 4563, 4565, 4567, 4569, 4571, 4573, 4575, 4577,
    4579, 4581, 4583, 4585, 4587, 4589, 4591, 4593, 4595, 4597,
    4599, 4601, 4603, 4605, 4607, 4609, 4611, 4613, 4615, 4617,
    4619, 4621, 4623, 4625, 4627, 4629, 4631, 4633, 4635, 4637,
    4639, 4641, 4643, 4645, 4647, 4649, 4651, 4653, 4655, 4657,
    4659, 4661, 4663, 4665, 4667, 4669, 4671, 4673, 4675, 4677,
    4679, 4681, 4683, 4685, 4687, 4689, 4691, 4693, 4695, 4697,
    4699, 4701, 4703, 4705, 4707, 4709, 4711, 4713, 4715, 4717,
    4719, 4721, 4723, 4725, 4727, 4729, 4731, 4733, 4735, 4737,
    4739, 4741, 4743, 4745, 4747, 4749, 4751, 4753, 4755, 4757,
    4759, 4761, 4763, 4765, 4767, 4769, 4771, 4773, 4775, 4777,
    4779, 4781, 4783, 4785, 4787, 4789, 4791, 4793, 4795, 4797,
    4799, 4801, 4803, 4805, 4807, 4809, 4811, 4813, 4815, 4817,
    4819, 4821, 4823, 4825, 4827, 4829, 4831, 4833, 4835, 4837,
    4839, 4841, 4843, 4845, 4847, 4849, 4851, 4853, 4855, 4857,
    4859, 4861, 4863, 4865, 4867, 4869, 4871, 4873, 4875, 4877,
    4879, 4881, 4883, 4885, 4887, 4889, 4891, 4893, 4895, 4897,
    4899, 4901, 4903, 4905, 4907, 4909, 4911, 4913, 4915, 4917,
    4919, 4921, 4923, 4925, 4927, 4929, 4931, 4933, 4935, 4937,
    4939, 4941, 4943, 4945, 4947, 4949, 4951, 4953, 4955, 4957,
    4959, 4961, 4963, 4965, 4967, 4969, 4971, 4973, 4975, 4977,
    4979, 4981, 4983, 4985, 4987, 4989, 4991, 4993, 4995, 4997,
    4999, 5001, 5003, 5005, 5007, 5010, 5013, 5016, 5019, 5022,
    5029, 5036, 5042, 5048, 5054, 5060, 5066, 5072, 5078, 5084,
    5090, 5096, 5102, 5108, 5113, 5118, 5123, 5128, 5133, 5138,
    5143, 5148, 5154, 5159, 5165, 5170, 5176, 5182, 5188, 5193,
    5196, 5199, 5206, 5212, 5218, 5224, 5229, 5235, 5240, 5245,
    5250, 5255, 5261, 5267, 5272, 5277, 5281, 5286, 5290, 5295,
    5299, 5303, 5308, 5313, 5318, 5322, 5327, 5332, 5338, 5344,
    5349, 5354, 5357, 5360, 5366, 5372, 5378, 5384, 5389, 5395,
    5400, 5405, 5410, 5415, 5421, 5427, 5432, 5437, 5441, 5446,
    5450, 5455, 5459, 5463, 5468, 5473, 5478, 5482, 5487, 5492,
    5498, 5504, 5509, 5514, 5517, 5520, 5527, 5534, 5539, 5545,
    5550, 5555, 5560, 5565, 5570, 5575, 5580, 5586, 5591, 5596,
    5600, 5605, 5608, 5612, 5616, 5620, 5624, 5629, 5633, 5637,
    5642, 5647, 5652, 5658, 5663, 5668, 5675, 5682, 5687, 5693,
    5698, 5703, 5708, 5713, 5718, 5723, 5728, 5734, 5739, 5744,
    5748, 5753, 5756, 5760, 5764, 5768, 5772, 5776, 5780, 5784,
    5789, 5794, 5799, 5805, 5810, 5815, 5820, 5825, 5830, 5835,
    5839, 5843, 5847, 5851, 5855, 5860, 5865, 5870, 5874, 5877,
    5881, 5884, 5886, 5888, 5891, 5894, 5898, 5902, 5906, 5910,
    5915, 5919, 5924, 5929, 5934, 5938, 5940, 5943, 5950, 5957,
    5962, 5968, 5973, 5978, 5983, 5988, 5993, 5998, 6003, 6009,
    6014, 6019, 6023, 6028, 6031, 6035, 6039, 6043, 6047, 6051,
    6055, 6058, 6063, 6068, 6073, 6079, 6084, 6089, 6094, 6099,
    6104, 6109, 6113, 6117, 6121, 6125, 6129, 6133, 6138, 6143,
    6147, 6150, 6154, 6157, 6159, 6161, 6164, 6167, 6171, 6175,
    6179, 6183, 6188, 6192, 6197, 6202, 6207, 6211, 6213, 6215,
    6221, 6227, 6232, 6237, 6241, 6245, 6250, 6255, 6260, 6265,
    6270, 6275, 6279, 6284, 6288, 6293, 6297, 6301, 6305, 6310,
    6315, 6319, 6323, 6326, 6330, 6335, 6340, 6345, 6349, 6354,
    6360, 6366, 6371, 6376, 6380, 6384, 6389, 6394, 6399, 6404,
    6409, 6414, 6418, 6423, 6427, 6432, 6436, 6440, 6444, 6449,
    6454, 6458, 6462, 6465, 6469, 6474, 6479, 6484, 6488, 6493,
    6497, 6501, 6506, 6511, 6515, 6519, 6523, 6527, 6531, 6535,
    6539, 6543, 6546, 6550, 6554, 6558, 6560, 6562, 6565, 6568,
    6571, 6575, 6579, 6582, 6586, 6590, 6594, 6598, 6602, 6606,
    6608, 6610, 6616, 6622, 6629, 6636, 6641, 6646, 6652, 6658,
    6664, 6670, 6676, 6682, 6688, 6694, 6699, 6704, 6709, 6714,
    6719, 6724, 6729, 6734, 6739, 6744, 6750, 6755, 6761, 6767,
    6773, 6778, 6784, 6790, 6797, 6804, 6809, 6814, 6820, 6826,
    6832, 6838, 6844, 6850, 6856, 6862, 6867, 6872, 6877, 6882,
    6887, 6892, 6897, 6902, 6907, 6912, 6918, 6923, 6929, 6935,
    6941, 6946, 6951, 6956, 6961, 6966, 6970, 6974, 6979, 6984,
    6988, 6992, 6997, 7002, 7006, 7011, 7015, 7019, 7021, 7023,
    7027, 7030, 7034, 7039, 7043, 7047, 7052, 7056, 7061, 7066,
    7071, 7075, 7078, 7081, 7083, 7085, 7090, 7095, 7100, 7105,
    7110, 7115, 7119, 7124, 7129, 7134, 7139, 7144, 7148, 7152,
    7156, 7160, 7164, 7169, 7172, 7175, 7178, 7181, 7185, 7188,
    7192, 7196, 7201, 7206, 7210, 7215, 7218, 7221, 7224, 7227,
    7233, 7239, 7245, 7251, 7256, 7262, 7268, 7273, 7279, 7285,
    7290, 7295, 7300, 7305, 7307, 7312, 7314, 7316, 7321, 7326,
    7328, 7332, 7336, 7340, 7344, 7348, 7353, 7358, 7363, 7368,
    7371, 7374, 7380, 7386, 7392, 7398, 7404, 7410, 7415, 7420,
    7424, 7428, 7432, 7437, 7440, 7444, 7446, 7448, 7450, 7452,
    7455, 7457, 7459, 7461, 7463, 7465, 7467, 7470, 7474, 7479,
    7482, 7485, 7488, 7491, 7495, 7499, 7503, 7507, 7511, 7515,
    7519, 7523, 7527, 7531, 7535, 7539, 7542, 7546, 7549, 7552,
    7555, 7558, 7560, 7562, 7564, 7566, 7570, 7573, 7576, 7579,
    7583, 7587, 7591, 7594, 7599, 7604, 7609, 7614, 7619, 7624,
    7629, 7634, 7638, 7643, 7648, 7653, 7657, 7661, 7665, 7670,
    7674, 7678, 7682, 7685, 7688, 7692, 7696, 7700, 7704, 7708,
    7713, 7718, 7722, 7726, 7729, 7732, 7738, 7744, 7749, 7754,
    7760, 7766, 7772, 7778, 7784, 7790, 7795, 7800, 7805, 7810,
    7814, 7819, 7824, 7829, 7833, 7837, 7843, 7847, 7853, 7857,
    7863, 7869, 7875, 7880, 7893, 7906, 7910, 7911)

# Define variable names and types ('c' = character, 'n' = 'numeric') 

var_names <- 
  c("DUID", "PID", "DUPERSID", "PANEL", "YEARIND", "SAQRDS24",
    "ALL5RDS", "DIED", "INST", "MILITARY", "ENTRSRVY",
    "LEFTUS", "OTHER", "FAMID1", "FAMID2", "FAMID3", "FAMID4",
    "FAMID5", "FAMIDY1", "FAMIDY2", "FAMIDYR1", "FAMIDYR2",
    "CPSFAMY1", "CPSFAMY2", "FCSZY1", "FCSZY2", "FCRPY1",
    "FCRPY2", "RULETR1", "RULETR2", "RULETR3", "RULETR4",
    "RULETR5", "RULETRY1", "RULETRY2", "RUSIZE1", "RUSIZE2",
    "RUSIZE3", "RUSIZE4", "RUSIZE5", "RUSIZEY1", "RUSIZEY2",
    "RUCLAS1", "RUCLAS2", "RUCLAS3", "RUCLAS4", "RUCLAS5",
    "RUCLASY1", "RUCLASY2", "FAMSZE1", "FAMSZE2", "FAMSZE3",
    "FAMSZE4", "FAMSZE5", "FAMSZEY1", "FAMSZEY2", "FMRSY1",
    "FMRSY2", "FAMSY1", "FAMSY2", "FAMSZYR1", "FAMSZYR2",
    "FAMRFPY1", "FAMRFPY2", "REGION1", "REGION2", "REGION3",
    "REGION4", "REGION5", "REGIONY1", "REGIONY2", "REFPRS1",
    "REFPRS2", "REFPRS3", "REFPRS4", "REFPRS5", "REFPRSY1",
    "REFPRSY2", "RESP1", "RESP2", "RESP3", "RESP4", "RESP5",
    "RESPY1", "RESPY2", "PROXY1", "PROXY2", "PROXY3", "PROXY4",
    "PROXY5", "PROXYY1", "PROXYY2", "INTVLANG", "BEGRFM1",
    "BEGRFM2", "BEGRFM3", "BEGRFM4", "BEGRFM5", "BEGRFY1",
    "BEGRFY2", "BEGRFY3", "BEGRFY4", "BEGRFY5", "ENDRFM1",
    "ENDRFM2", "ENDRFM3", "ENDRFM4", "ENDRFM5", "ENDRFY1",
    "ENDRFY2", "ENDRFY3", "ENDRFY4", "ENDRFY5", "ENDRFMY1",
    "ENDRFMY2", "ENDRFYY1", "ENDRFYY2", "KEYNESY1", "KEYNESY2",
    "INSCOP1", "INSCOP2", "INSCOP3", "INSCOP4", "INSCOP5",
    "INSCOPY1", "INSCOPY2", "INSCY1", "INSCY2", "INSCPYR1",
    "INSCPYR2", "ELGRND1", "ELGRND2", "ELGRND3", "ELGRND4",
    "ELGRND5", "ELGRNDY1", "ELGRNDY2", "PSTATS1", "PSTATS2",
    "PSTATS3", "PSTATS4", "PSTATS5", "RURSLT1", "RURSLT2",
    "RURSLT3", "RURSLT4", "RURSLT5", "AGE1X", "AGE2X", "AGE3X",
    "AGE4X", "AGE5X", "AGEY1X", "AGEY2X", "AGELSTY1",
    "AGELSTY2", "DOBMM", "DOBYY", "SEX", "RACEV1X", "RACEV2X",
    "RACEAX", "RACEBX", "RACEWX", "RACETHX", "HISPANX",
    "HISPNCAT", "MARRY1X", "MARRY2X", "MARRY3X", "MARRY4X",
    "MARRY5X", "MARRYY1X", "MARRYY2X", "SPOUID1", "SPOUID2",
    "SPOUID3", "SPOUID4", "SPOUID5", "SPOUIDY1", "SPOUIDY2",
    "SPOUIN1", "SPOUIN2", "SPOUIN3", "SPOUIN4", "SPOUIN5",
    "SPOUINY1", "SPOUINY2", "EDUCYR", "HIDEG", "FTSTU1X",
    "FTSTU2X", "FTSTU3X", "FTSTU4X", "FTSTU5X", "FTSTUY1X",
    "FTSTUY2X", "ACTDTY1", "ACTDTY2", "ACTDTY3", "ACTDTY4",
    "ACTDTY5", "HONRDC1", "HONRDC2", "REFRL1X", "REFRL2X",
    "REFRL3X", "REFRL4X", "REFRL5X", "REFRLY1X", "REFRLY2X",
    "OTHLGSPK", "WHTLGSPK", "HWELLSPK", "BORNUSA", "YRSINUS",
    "MOPID1X", "MOPID2X", "MOPID3X", "MOPID4X", "MOPID5X",
    "DAPID1X", "DAPID2X", "DAPID3X", "DAPID4X", "DAPID5X",
    "RTHLTH1", "RTHLTH2", "RTHLTH3", "RTHLTH4", "RTHLTH5",
    "MNHLTH1", "MNHLTH2", "MNHLTH3", "MNHLTH4", "MNHLTH5",
    "HIBPDXY1", "HIBPDXY2", "HIBPAGY1", "HIBPAGY2", "BPMLDXY1",
    "BPMLDXY2", "CHDDXY1", "CHDDXY2", "CHDAGY1", "CHDAGY2",
    "ANGIDXY1", "ANGIDXY2", "ANGIAGY1", "ANGIAGY2", "MIDXY1",
    "MIDXY2", "MIAGY1", "MIAGY2", "OHRTDXY1", "OHRTDXY2",
    "OHRTAGY1", "OHRTAGY2", "OHRTTPY1", "OHRTTPY2", "STRKDXY1",
    "STRKDXY2", "STRKAGY1", "STRKAGY2", "EMPHDXY1", "EMPHDXY2",
    "EMPHAGY1", "EMPHAGY2", "CHBRON1", "CHBRON3", "CHOLDXY1",
    "CHOLDXY2", "CHOLAGY1", "CHOLAGY2", "CANCERY1", "CANCERY2",
    "CABLADY1", "CABLADY2", "CABREAY1", "CABREAY2", "CACERVY1",
    "CACERVY2", "CACOLOY1", "CACOLOY2", "CALUNGY1", "CALUNGY2",
    "CALYMPY1", "CALYMPY2", "CAMELAY1", "CAMELAY2", "CAOTHEY1",
    "CAOTHEY2", "CAPROSY1", "CAPROSY2", "CASKNMY1", "CASKNMY2",
    "CASKDKY1", "CASKDKY2", "CAUTERY1", "CAUTERY2",
    "DIABDXY1_M18", "DIABDXY2_M18", "DIABAGY1", "DIABAGY2",
    "JTPAIN1_M18", "JTPAIN3_M18", "ARTHDXY1", "ARTHDXY2",
    "ARTHTPY1", "ARTHTPY2", "ARTHAGY1", "ARTHAGY2", "ASTHDXY1",
    "ASTHDXY2", "ASTHAGY1", "ASTHAGY2", "ASSTIL1", "ASSTIL3",
    "ASATAK1", "ASATAK3", "ASTHEP1", "ASTHEP3", "ASACUT1",
    "ASACUT3", "ASMRCN1", "ASMRCN3", "ASPREV1", "ASPREV3",
    "ASDALY1", "ASDALY3", "ASPKFL1", "ASPKFL3", "ASEVFL1",
    "ASEVFL3", "ASWNFL1", "ASWNFL3", "ADHDADY1", "ADHDADY2",
    "ADHDAGY1", "ADHDAGY2", "IADLHP1", "IADLHP3", "ADLHLP1",
    "ADLHLP3", "AIDHLP1", "AIDHLP3", "WLKLIM1", "WLKLIM3",
    "LFTDIF1", "LFTDIF3", "STPDIF1", "STPDIF3", "WLKDIF1",
    "WLKDIF3", "MILDIF1", "MILDIF3", "STNDIF1", "STNDIF3",
    "BENDIF1", "BENDIF3", "RCHDIF1", "RCHDIF3", "FNGRDF1",
    "FNGRDF3", "ACTLIM1", "ACTLIM3", "WRKLIM1", "WRKLIM3",
    "HSELIM1", "HSELIM3", "SCHLIM1", "SCHLIM3", "UNABLE1",
    "UNABLE3", "SOCLIM1", "SOCLIM3", "COGLIM1", "COGLIM3",
    "DFHEAR2", "DFHEAR4", "DFSEE2", "DFSEE4", "DFCOG2",
    "DFCOG4", "DFWLKC2", "DFWLKC4", "DFDRSB2", "DFDRSB4",
    "DFERND2", "DFERND4", "ANYLMIY1", "ANYLMIY2", "CHPMED2",
    "CHPMED4", "CHPMHB2", "CHPMHB4", "CHPMCN2", "CHPMCN4",
    "CHSERV2", "CHSERV4", "CHSRHB2", "CHSRHB4", "CHSRCN2",
    "CHSRCN4", "CHLIMI2", "CHLIMI4", "CHLIHB2", "CHLIHB4",
    "CHLICO2", "CHLICO4", "CHTHER2", "CHTHER4", "CHTHHB2",
    "CHTHHB4", "CHTHCO2", "CHTHCO4", "CHCOUN2", "CHCOUN4",
    "CHEMPB2", "CHEMPB4", "CSHCN2", "CSHCN4", "GETTRB4",
    "MOMPRO4", "DADPRO4", "UNHAP4", "SCHLBH4", "HAVFUN4",
    "ADUPRO4", "NERVAF4", "SIBPRO4", "KIDPRO4", "SPRPRO4",
    "SCHPRO4", "HOMEBH4", "CHILCR4", "CHILWW4", "CHRTCR4",
    "CHRTWW4", "CHAPPT4", "CHEXPL4", "CHLIST4", "CHRESP4",
    "CHPRTM4", "CHHECR4", "CHSPEC4_M18", "CHEYRE4_M18",
    "MESHGT2", "WHNHGT2", "MESWGT2", "WHNWGT2", "CHBMIX2",
    "MESVIS2", "EATHLT2", "WHNEAT2", "PHYSCL2", "WHNPHY2",
    "SAFEST2", "WHNSAF2", "BOOST2", "WHNBST2", "LAPBLT2",
    "WHNLAP2", "HELMET2", "WHNHEL2", "NOSMOK2", "WHNSMK2",
    "TIMALN2", "LSTETH3", "LSTETH5", "PHYEXE3", "PHYEXE5",
    "OFTSMK3", "OFTSMK5", "SAQELIY1", "SAQELIY2", "ADSEX2",
    "ADAGE2", "ADPROX2", "ADPROX4", "ADGENH2", "ADGENH4",
    "ADDAYA2", "ADDAYA4", "ADCLIM2", "ADCLIM4", "ADACLS2",
    "ADACLS4", "ADWKLM2", "ADWKLM4", "ADEMLS2", "ADEMLS4",
    "ADMWCF2", "ADMWCF4", "ADPAIN2", "ADPAIN4", "ADPCFL2",
    "ADPCFL4", "ADENGY2", "ADENGY4", "ADPRST2", "ADPRST4",
    "ADSOCA2", "ADSOCA4", "VPCS2", "VPCS4", "VMCS2", "VMCS4",
    "VRFLAG2", "VRFLAG4", "ADNERV2", "ADNERV4", "ADHOPE2",
    "ADHOPE4", "ADREST2", "ADREST4", "ADSAD2", "ADSAD4",
    "ADEFRT2", "ADEFRT4", "ADWRTH2", "ADWRTH4", "K6SUM2",
    "K6SUM4", "ADINTR2", "ADINTR4", "ADDPRS2", "ADDPRS4",
    "PHQ22", "PHQ24", "ADINSA4", "ADINSB4", "ADRISK4",
    "ADOVER4", "ADILCR4", "ADILWW4", "ADRTCR4", "ADRTWW4",
    "ADAPPT4", "ADHECR4", "ADINST4", "ADEZUN4", "ADTLHW4",
    "ADFFRM4", "ADFHLP4", "ADEXPL4", "ADLIST4", "ADRESP4",
    "ADPRTM4", "ADSMOK4", "ADNSMK4", "ADSPCL4", "ADSNSP4",
    "ADBRTC2", "ADMDVT2", "ADFLST2", "ADWGHD2", "ADBMI2",
    "ADWTAD2", "ADKALC2", "ADRNK42", "ADRNK52", "ADSTAL2",
    "ADTBAC2", "ADOFTB2", "ADQTTB2", "ADQTMD2", "ADQTHP2",
    "ADMOOD2", "ADBPCK2", "ADCHLC2", "ADPNEU2", "ADSHNG2",
    "ADNOAP2", "ADDSCU2", "ADCOLN2", "ADCLNS2", "ADSGMD2",
    "ADBLDS2", "ADPROS2", "ADPSAG2", "ADUTRM2", "ADPAP2",
    "ADPAPG2", "ADOSTP2", "ADBNDN2", "ADBRST2", "ADMMGR2",
    "ADCMPM2", "ADCMPM4", "ADCMPY2", "ADCMPY4", "ADLANG2",
    "ADLANG4", "VSAQELY1", "VSAQELY2", "VACTDY3", "VAPRHT3",
    "VACOPD3", "VADERM3", "VAGERD3", "VAHRLS3", "VABACK3",
    "VAJTPN3", "VARTHR3", "VAGOUT3", "VANECK3", "VAFIBR3",
    "VATMD3", "VAPTSD3", "VALCOH3", "VABIPL3", "VADEPR3",
    "VAMOOD3", "VAPROS3", "VARHAB3", "VAMNHC3", "VAGCNS3",
    "VARXMD3", "VACRGV3", "VAMOBL3", "VACOST3", "VARECM3",
    "VAREP3", "VAWAIT3", "VALOCT3", "VANTWK3", "VANEED3",
    "VAOUT3", "VAPAST3", "VACOMP3", "VAMREC3", "VAGTRC3",
    "VACARC3", "VAPROB3", "VACARE3", "VAPACT3", "VAPCPR3",
    "VAPROV3", "VAPCOT3", "VAPCCO3", "VAPCRC3", "VAPCSN3",
    "VAPCRF3", "VAPCSO3", "VAPCOU3", "VAPCUN3", "VASPCL3",
    "VASPMH3", "VASPOU3", "VASPUN3", "VACMPM3", "VACMPY3",
    "VAPROX3", "DCSELIY1", "DCSELIY2", "DSDIA3", "DSDIA5",
    "DSA1C3", "DSA1C5", "DSFTY0R3", "DSFTY1R3", "DSFTY1R5",
    "DSFTY2R3", "DSFTY2R5", "DSFTY3R5", "DSFBY0R3", "DSFBY1R5",
    "DSFTNV3", "DSFTNV5", "DSEYY0R3", "DSEYY1R3", "DSEYY1R5",
    "DSEYY2R3", "DSEYY2R5", "DSEYY3R5", "DSEBY0R3", "DSEBY1R5",
    "DSEYNV3", "DSEYNV5", "DSCHY0R3", "DSCHY1R3", "DSCHY1R5",
    "DSCHY2R3", "DSCHY2R5", "DSCHY3R5", "DSCBY0R3", "DSCBY1R5",
    "DSCHNV3", "DSCHNV5", "DSFLY0R3", "DSFLY1R3", "DSFLY1R5",
    "DSFLY2R3", "DSFLY2R5", "DSFLY3R5", "DSVBY0R3", "DSVBY1R5",
    "DSFLNV3", "DSFLNV5", "DSKIDN3", "DSKIDN5", "DSEYPR3",
    "DSEYPR5", "DSDIET3", "DSDIET5", "DSMED3", "DSMED5",
    "DSINSU3", "DSINSU5", "DSCPCP3", "DSCPCP5", "DSCNPC3",
    "DSCNPC5", "DSCPHN3", "DSCPHN5", "DSCINT3", "DSCINT5",
    "DSCGRP3", "DSCGRP5", "DSCONF3", "DSCONF5", "DSPRX3",
    "DSPRX5", "DDNWRKY1", "DDNWRKY2", "OTHDYSY1", "OTHDYSY2",
    "OTHNDDY1", "OTHNDDY2", "ACCELI2", "ACCELI4", "HAVEUS2",
    "HAVEUS4", "PRACTP2", "PRACTP4", "YNOUSC2_M18",
    "YNOUSC4_M18", "PROVTY2_M18", "PROVTY4_M18", "PLCTYP2",
    "PLCTYP4", "TMTKUS2", "TMTKUS4", "TYPEPE2", "TYPEPE4",
    "LOCATN2", "LOCATN4", "HSPLAP2", "HSPLAP4", "WHITPR2",
    "WHITPR4", "BLCKPR2", "BLCKPR4", "ASIANP2", "ASIANP4",
    "NATAMP2", "NATAMP4", "PACISP2", "PACISP4", "OTHRCP2",
    "OTHRCP4", "GENDRP2", "GENDRP4", "PHNREG2", "PHNREG4",
    "OFFHOU2", "OFFHOU4", "AFTHOU2", "AFTHOU4", "TREATM2",
    "TREATM4", "DECIDE2", "DECIDE4", "EXPLOP2", "EXPLOP4",
    "PRVSPK2", "PRVSPK4", "DLAYCA2", "DLAYCA4", "AFRDCA2",
    "AFRDCA4", "DLAYDN2", "DLAYDN4", "AFRDDN2", "AFRDDN4",
    "DLAYPM2", "DLAYPM4", "AFRDPM2", "AFRDPM4", "EMPST1",
    "EMPST2", "EMPST3", "EMPST4", "EMPST5", "RNDFLG1",
    "RNDFLG3", "MORJOB1", "MORJOB2", "MORJOB3", "MORJOB4",
    "MORJOB5", "EVRWRKY1", "EVRWRKY2", "HRWG1X", "HRWG2X",
    "HRWG3X", "HRWG4X", "HRWG5X", "HRWGIM1", "HRWGIM2",
    "HRWGIM3", "HRWGIM4", "HRWGIM5", "HRHOW1", "HRHOW2",
    "HRHOW3", "HRHOW4", "HRHOW5", "DIFFWG1", "DIFFWG2",
    "DIFFWG3", "DIFFWG4", "DIFFWG5", "NHRWG1", "NHRWG2",
    "NHRWG3", "NHRWG4", "NHRWG5", "HOUR1", "HOUR2", "HOUR3",
    "HOUR4", "HOUR5", "TEMPJB1", "TEMPJB2", "TEMPJB3",
    "TEMPJB4", "TEMPJB5", "SSNLJB1", "SSNLJB2", "SSNLJB3",
    "SSNLJB4", "SSNLJB5", "SELFCM1", "SELFCM2", "SELFCM3",
    "SELFCM4", "SELFCM5", "DISVW1X", "DISVW2X", "DISVW3X",
    "DISVW4X", "DISVW5X", "CHOIC1", "CHOIC2", "CHOIC3",
    "CHOIC4", "CHOIC5", "INDCAT1", "INDCAT2", "INDCAT3",
    "INDCAT4", "INDCAT5", "NUMEMP1", "NUMEMP2", "NUMEMP3",
    "NUMEMP4", "NUMEMP5", "MORE1", "MORE2", "MORE3", "MORE4",
    "MORE5", "UNION1", "UNION2", "UNION3", "UNION4", "UNION5",
    "NWK1", "NWK2", "NWK3", "NWK4", "NWK5", "CHGJ12", "CHGJ23",
    "CHGJ34", "CHGJ45", "YCHJ12", "YCHJ23", "YCHJ34", "YCHJ45",
    "STJBMM1", "STJBMM2", "STJBMM3", "STJBMM4", "STJBMM5",
    "STJBYY1", "STJBYY2", "STJBYY3", "STJBYY4", "STJBYY5",
    "EVRETIY1", "EVRETIY2", "OCCCAT1", "OCCCAT2", "OCCCAT3",
    "OCCCAT4", "OCCCAT5", "PAYVAC1", "PAYVAC2", "PAYVAC3",
    "PAYVAC4", "PAYVAC5", "SICPAY1", "SICPAY2", "SICPAY3",
    "SICPAY4", "SICPAY5", "PAYDR1", "PAYDR2", "PAYDR3",
    "PAYDR4", "PAYDR5", "RETPLN1", "RETPLN2", "RETPLN3",
    "RETPLN4", "RETPLN5", "BSNTY1", "BSNTY2", "BSNTY3",
    "BSNTY4", "BSNTY5", "JOBORG1", "JOBORG2", "JOBORG3",
    "JOBORG4", "JOBORG5", "HELD1X", "HELD2X", "HELD3X",
    "HELD4X", "HELD5X", "OFFER1X", "OFFER2X", "OFFER3X",
    "OFFER4X", "OFFER5X", "OFREMP1", "OFREMP2", "OFREMP3",
    "OFREMP4", "OFREMP5", "EMPST1H", "EMPST2H", "EMPST3H",
    "EMPST4H", "EMPST5H", "SLFCM1H", "SLFCM2H", "SLFCM3H",
    "SLFCM4H", "SLFCM5H", "NMEMP1H", "NMEMP2H", "NMEMP3H",
    "NMEMP4H", "NMEMP5H", "MORE1H", "MORE2H", "MORE3H",
    "MORE4H", "MORE5H", "INDCT1H", "INDCT2H", "INDCT3H",
    "INDCT4H", "INDCT5H", "OCCCT1H", "OCCCT2H", "OCCCT3H",
    "OCCCT4H", "OCCCT5H", "HOUR1H", "HOUR2H", "HOUR3H",
    "HOUR4H", "HOUR5H", "JBORG1H", "JBORG2H", "JBORG3H",
    "JBORG4H", "JBORG5H", "UNION1H", "UNION2H", "UNION3H",
    "UNION4H", "UNION5H", "BSNTY1H", "BSNTY2H", "BSNTY3H",
    "BSNTY4H", "BSNTY5H", "HRWG1H", "HRWG2H", "HRWG3H",
    "HRWG4H", "HRWG5H", "CMJHLD1", "CMJHLD2", "CMJHLD3",
    "CMJHLD4", "CMJHLD5", "OFFER1H", "OFFER2H", "OFFER3H",
    "OFFER4H", "OFFER5H", "OFEMP1H", "OFEMP2H", "OFEMP3H",
    "OFEMP4H", "OFEMP5H", "PYVAC1H", "PYVAC2H", "PYVAC3H",
    "PYVAC4H", "PYVAC5H", "SCPAY1H", "SCPAY2H", "SCPAY3H",
    "SCPAY4H", "SCPAY5H", "PAYDR1H", "PAYDR2H", "PAYDR3H",
    "PAYDR4H", "PAYDR5H", "RTPLN1H", "RTPLN2H", "RTPLN3H",
    "RTPLN4H", "RTPLN5H", "FILEDRY1", "FILEDRY2", "WILFILY1",
    "WILFILY2", "FLSTATY1", "FLSTATY2", "FILERY1", "FILERY2",
    "JTINRUY1", "JTINRUY2", "JNTPIDY1", "JNTPIDY2", "TAXFRMY1",
    "TAXFRMY2", "FOODSTY1", "FOODSTY2", "FOODMNY1", "FOODMNY2",
    "FOODVLY1", "FOODVLY2", "TTLPY1X", "TTLPY2X", "FAMINCY1",
    "FAMINCY2", "POVCATY1", "POVCATY2", "POVLEVY1", "POVLEVY2",
    "WAGEPY1X", "WAGEPY2X", "WAGIMPY1", "WAGIMPY2", "BUSNPY1X",
    "BUSNPY2X", "BUSIMPY1", "BUSIMPY2", "UNEMPY1X", "UNEMPY2X",
    "UNEIMPY1", "UNEIMPY2", "WCMPPY1X", "WCMPPY2X", "WCPIMPY1",
    "WCPIMPY2", "INTRPY1X", "INTRPY2X", "INTIMPY1", "INTIMPY2",
    "DIVDPY1X", "DIVDPY2X", "DIVIMPY1", "DIVIMPY2", "SALEPY1X",
    "SALEPY2X", "SALIMPY1", "SALIMPY2", "PENSPY1X", "PENSPY2X",
    "PENIMPY1", "PENIMPY2", "SSECPY1X", "SSECPY2X", "SSCIMPY1",
    "SSCIMPY2", "TRSTPY1X", "TRSTPY2X", "TRTIMPY1", "TRTIMPY2",
    "VETSPY1X", "VETSPY2X", "VETIMPY1", "VETIMPY2", "IRASPY1X",
    "IRASPY2X", "IRAIMPY1", "IRAIMPY2", "ALIMPY1X", "ALIMPY2X",
    "ALIIMPY1", "ALIIMPY2", "CHLDPY1X", "CHLDPY2X", "CHLIMPY1",
    "CHLIMPY2", "CASHPY1X", "CASHPY2X", "CSHIMPY1", "CSHIMPY2",
    "SSIPY1X", "SSIPY2X", "SSIIMPY1", "SSIIMPY2", "PUBPY1X",
    "PUBPY2X", "PUBIMPY1", "PUBIMPY2", "OTHRPY1X", "OTHRPY2X",
    "OTHIMPY1", "OTHIMPY2", "HIEUIDY1", "HIEUIDY2", "TRIJAY1X",
    "TRIJAY2X", "TRIFEY1X", "TRIFEY2X", "TRIMAY1X", "TRIMAY2X",
    "TRIAPY1X", "TRIAPY2X", "TRIMYY1X", "TRIMYY2X", "TRIJUY1X",
    "TRIJUY2X", "TRIJLY1X", "TRIJLY2X", "TRIAUY1X", "TRIAUY2X",
    "TRISEY1X", "TRISEY2X", "TRIOCY1X", "TRIOCY2X", "TRINOY1X",
    "TRINOY2X", "TRIDEY1X", "TRIDEY2X", "MCRJAY1", "MCRJAY2",
    "MCRFEY1", "MCRFEY2", "MCRMAY1", "MCRMAY2", "MCRAPY1",
    "MCRAPY2", "MCRMYY1", "MCRMYY2", "MCRJUY1", "MCRJUY2",
    "MCRJLY1", "MCRJLY2", "MCRAUY1", "MCRAUY2", "MCRSEY1",
    "MCRSEY2", "MCROCY1", "MCROCY2", "MCRNOY1", "MCRNOY2",
    "MCRDEY1", "MCRDEY2", "MCRJAY1X", "MCRJAY2X", "MCRFEY1X",
    "MCRFEY2X", "MCRMAY1X", "MCRMAY2X", "MCRAPY1X", "MCRAPY2X",
    "MCRMYY1X", "MCRMYY2X", "MCRJUY1X", "MCRJUY2X", "MCRJLY1X",
    "MCRJLY2X", "MCRAUY1X", "MCRAUY2X", "MCRSEY1X", "MCRSEY2X",
    "MCROCY1X", "MCROCY2X", "MCRNOY1X", "MCRNOY2X", "MCRDEY1X",
    "MCRDEY2X", "MCDJAY1", "MCDJAY2", "MCDFEY1", "MCDFEY2",
    "MCDMAY1", "MCDMAY2", "MCDAPY1", "MCDAPY2", "MCDMYY1",
    "MCDMYY2", "MCDJUY1", "MCDJUY2", "MCDJLY1", "MCDJLY2",
    "MCDAUY1", "MCDAUY2", "MCDSEY1", "MCDSEY2", "MCDOCY1",
    "MCDOCY2", "MCDNOY1", "MCDNOY2", "MCDDEY1", "MCDDEY2",
    "MCDJAY1X", "MCDJAY2X", "MCDFEY1X", "MCDFEY2X", "MCDMAY1X",
    "MCDMAY2X", "MCDAPY1X", "MCDAPY2X", "MCDMYY1X", "MCDMYY2X",
    "MCDJUY1X", "MCDJUY2X", "MCDJLY1X", "MCDJLY2X", "MCDAUY1X",
    "MCDAUY2X", "MCDSEY1X", "MCDSEY2X", "MCDOCY1X", "MCDOCY2X",
    "MCDNOY1X", "MCDNOY2X", "MCDDEY1X", "MCDDEY2X", "GVAJAY1",
    "GVAJAY2", "GVAFEY1", "GVAFEY2", "GVAMAY1", "GVAMAY2",
    "GVAAPY1", "GVAAPY2", "GVAMYY1", "GVAMYY2", "GVAJUY1",
    "GVAJUY2", "GVAJLY1", "GVAJLY2", "GVAAUY1", "GVAAUY2",
    "GVASEY1", "GVASEY2", "GVAOCY1", "GVAOCY2", "GVANOY1",
    "GVANOY2", "GVADEY1", "GVADEY2", "GVBJAY1", "GVBJAY2",
    "GVBFEY1", "GVBFEY2", "GVBMAY1", "GVBMAY2", "GVBAPY1",
    "GVBAPY2", "GVBMYY1", "GVBMYY2", "GVBJUY1", "GVBJUY2",
    "GVBJLY1", "GVBJLY2", "GVBAUY1", "GVBAUY2", "GVBSEY1",
    "GVBSEY2", "GVBOCY1", "GVBOCY2", "GVBNOY1", "GVBNOY2",
    "GVBDEY1", "GVBDEY2", "GVCJAY1", "GVCJAY2", "GVCFEY1",
    "GVCFEY2", "GVCMAY1", "GVCMAY2", "GVCAPY1", "GVCAPY2",
    "GVCMYY1", "GVCMYY2", "GVCJUY1", "GVCJUY2", "GVCJLY1",
    "GVCJLY2", "GVCAUY1", "GVCAUY2", "GVCSEY1", "GVCSEY2",
    "GVCOCY1", "GVCOCY2", "GVCNOY1", "GVCNOY2", "GVCDEY1",
    "GVCDEY2", "VAPJAY1", "VAPJAY2", "VAPFEY1", "VAPFEY2",
    "VAPMAY1", "VAPMAY2", "VAPAPY1", "VAPAPY2", "VAPMYY1",
    "VAPMYY2", "VAPJUY1", "VAPJUY2", "VAPJLY1", "VAPJLY2",
    "VAPAUY1", "VAPAUY2", "VAPSEY1", "VAPSEY2", "VAPOCY1",
    "VAPOCY2", "VAPNOY1", "VAPNOY2", "VAPDEY1", "VAPDEY2",
    "IHSJAY1", "IHSJAY2", "IHSFEY1", "IHSFEY2", "IHSMAY1",
    "IHSMAY2", "IHSAPY1", "IHSAPY2", "IHSMYY1", "IHSMYY2",
    "IHSJUY1", "IHSJUY2", "IHSJLY1", "IHSJLY2", "IHSAUY1",
    "IHSAUY2", "IHSSEY1", "IHSSEY2", "IHSOCY1", "IHSOCY2",
    "IHSNOY1", "IHSNOY2", "IHSDEY1", "IHSDEY2", "PUBJAY1X",
    "PUBJAY2X", "PUBFEY1X", "PUBFEY2X", "PUBMAY1X", "PUBMAY2X",
    "PUBAPY1X", "PUBAPY2X", "PUBMYY1X", "PUBMYY2X", "PUBJUY1X",
    "PUBJUY2X", "PUBJLY1X", "PUBJLY2X", "PUBAUY1X", "PUBAUY2X",
    "PUBSEY1X", "PUBSEY2X", "PUBOCY1X", "PUBOCY2X", "PUBNOY1X",
    "PUBNOY2X", "PUBDEY1X", "PUBDEY2X", "PEGJAY1", "PEGJAY2",
    "PEGFEY1", "PEGFEY2", "PEGMAY1", "PEGMAY2", "PEGAPY1",
    "PEGAPY2", "PEGMYY1", "PEGMYY2", "PEGJUY1", "PEGJUY2",
    "PEGJLY1", "PEGJLY2", "PEGAUY1", "PEGAUY2", "PEGSEY1",
    "PEGSEY2", "PEGOCY1", "PEGOCY2", "PEGNOY1", "PEGNOY2",
    "PEGDEY1", "PEGDEY2", "PDKJAY1", "PDKJAY2", "PDKFEY1",
    "PDKFEY2", "PDKMAY1", "PDKMAY2", "PDKAPY1", "PDKAPY2",
    "PDKMYY1", "PDKMYY2", "PDKJUY1", "PDKJUY2", "PDKJLY1",
    "PDKJLY2", "PDKAUY1", "PDKAUY2", "PDKSEY1", "PDKSEY2",
    "PDKOCY1", "PDKOCY2", "PDKNOY1", "PDKNOY2", "PDKDEY1",
    "PDKDEY2", "PNGJAY1", "PNGJAY2", "PNGFEY1", "PNGFEY2",
    "PNGMAY1", "PNGMAY2", "PNGAPY1", "PNGAPY2", "PNGMYY1",
    "PNGMYY2", "PNGJUY1", "PNGJUY2", "PNGJLY1", "PNGJLY2",
    "PNGAUY1", "PNGAUY2", "PNGSEY1", "PNGSEY2", "PNGOCY1",
    "PNGOCY2", "PNGNOY1", "PNGNOY2", "PNGDEY1", "PNGDEY2",
    "POGJAY1", "POGJAY2", "POGFEY1", "POGFEY2", "POGMAY1",
    "POGMAY2", "POGAPY1", "POGAPY2", "POGMYY1", "POGMYY2",
    "POGJUY1", "POGJUY2", "POGJLY1", "POGJLY2", "POGAUY1",
    "POGAUY2", "POGSEY1", "POGSEY2", "POGOCY1", "POGOCY2",
    "POGNOY1", "POGNOY2", "POGDEY1", "POGDEY2", "POEJAY1",
    "POEJAY2", "POEFEY1", "POEFEY2", "POEMAY1", "POEMAY2",
    "POEAPY1", "POEAPY2", "POEMYY1", "POEMYY2", "POEJUY1",
    "POEJUY2", "POEJLY1", "POEJLY2", "POEAUY1", "POEAUY2",
    "POESEY1", "POESEY2", "POEOCY1", "POEOCY2", "POENOY1",
    "POENOY2", "POEDEY1", "POEDEY2", "PNEJAY1", "PNEJAY2",
    "PNEFEY1", "PNEFEY2", "PNEMAY1", "PNEMAY2", "PNEAPY1",
    "PNEAPY2", "PNEMYY1", "PNEMYY2", "PNEJUY1", "PNEJUY2",
    "PNEJLY1", "PNEJLY2", "PNEAUY1", "PNEAUY2", "PNESEY1",
    "PNESEY2", "PNEOCY1", "PNEOCY2", "PNENOY1", "PNENOY2",
    "PNEDEY1", "PNEDEY2", "PRXJAY1", "PRXJAY2", "PRXFEY1",
    "PRXFEY2", "PRXMAY1", "PRXMAY2", "PRXAPY1", "PRXAPY2",
    "PRXMYY1", "PRXMYY2", "PRXJUY1", "PRXJUY2", "PRXJLY1",
    "PRXJLY2", "PRXAUY1", "PRXAUY2", "PRXSEY1", "PRXSEY2",
    "PRXOCY1", "PRXOCY2", "PRXNOY1", "PRXNOY2", "PRXDEY1",
    "PRXDEY2", "PRIJAY1", "PRIJAY2", "PRIFEY1", "PRIFEY2",
    "PRIMAY1", "PRIMAY2", "PRIAPY1", "PRIAPY2", "PRIMYY1",
    "PRIMYY2", "PRIJUY1", "PRIJUY2", "PRIJLY1", "PRIJLY2",
    "PRIAUY1", "PRIAUY2", "PRISEY1", "PRISEY2", "PRIOCY1",
    "PRIOCY2", "PRINOY1", "PRINOY2", "PRIDEY1", "PRIDEY2",
    "HPEJAY1", "HPEJAY2", "HPEFEY1", "HPEFEY2", "HPEMAY1",
    "HPEMAY2", "HPEAPY1", "HPEAPY2", "HPEMYY1", "HPEMYY2",
    "HPEJUY1", "HPEJUY2", "HPEJLY1", "HPEJLY2", "HPEAUY1",
    "HPEAUY2", "HPESEY1", "HPESEY2", "HPEOCY1", "HPEOCY2",
    "HPENOY1", "HPENOY2", "HPEDEY1", "HPEDEY2", "HPDJAY1",
    "HPDJAY2", "HPDFEY1", "HPDFEY2", "HPDMAY1", "HPDMAY2",
    "HPDAPY1", "HPDAPY2", "HPDMYY1", "HPDMYY2", "HPDJUY1",
    "HPDJUY2", "HPDJLY1", "HPDJLY2", "HPDAUY1", "HPDAUY2",
    "HPDSEY1", "HPDSEY2", "HPDOCY1", "HPDOCY2", "HPDNOY1",
    "HPDNOY2", "HPDDEY1", "HPDDEY2", "HPNJAY1", "HPNJAY2",
    "HPNFEY1", "HPNFEY2", "HPNMAY1", "HPNMAY2", "HPNAPY1",
    "HPNAPY2", "HPNMYY1", "HPNMYY2", "HPNJUY1", "HPNJUY2",
    "HPNJLY1", "HPNJLY2", "HPNAUY1", "HPNAUY2", "HPNSEY1",
    "HPNSEY2", "HPNOCY1", "HPNOCY2", "HPNNOY1", "HPNNOY2",
    "HPNDEY1", "HPNDEY2", "HPOJAY1", "HPOJAY2", "HPOFEY1",
    "HPOFEY2", "HPOMAY1", "HPOMAY2", "HPOAPY1", "HPOAPY2",
    "HPOMYY1", "HPOMYY2", "HPOJUY1", "HPOJUY2", "HPOJLY1",
    "HPOJLY2", "HPOAUY1", "HPOAUY2", "HPOSEY1", "HPOSEY2",
    "HPOOCY1", "HPOOCY2", "HPONOY1", "HPONOY2", "HPODEY1",
    "HPODEY2", "HPXJAY1", "HPXJAY2", "HPXFEY1", "HPXFEY2",
    "HPXMAY1", "HPXMAY2", "HPXAPY1", "HPXAPY2", "HPXMYY1",
    "HPXMYY2", "HPXJUY1", "HPXJUY2", "HPXJLY1", "HPXJLY2",
    "HPXAUY1", "HPXAUY2", "HPXSEY1", "HPXSEY2", "HPXOCY1",
    "HPXOCY2", "HPXNOY1", "HPXNOY2", "HPXDEY1", "HPXDEY2",
    "HPRJAY1", "HPRJAY2", "HPRFEY1", "HPRFEY2", "HPRMAY1",
    "HPRMAY2", "HPRAPY1", "HPRAPY2", "HPRMYY1", "HPRMYY2",
    "HPRJUY1", "HPRJUY2", "HPRJLY1", "HPRJLY2", "HPRAUY1",
    "HPRAUY2", "HPRSEY1", "HPRSEY2", "HPROCY1", "HPROCY2",
    "HPRNOY1", "HPRNOY2", "HPRDEY1", "HPRDEY2", "INSJAY1X",
    "INSJAY2X", "INSFEY1X", "INSFEY2X", "INSMAY1X", "INSMAY2X",
    "INSAPY1X", "INSAPY2X", "INSMYY1X", "INSMYY2X", "INSJUY1X",
    "INSJUY2X", "INSJLY1X", "INSJLY2X", "INSAUY1X", "INSAUY2X",
    "INSSEY1X", "INSSEY2X", "INSOCY1X", "INSOCY2X", "INSNOY1X",
    "INSNOY2X", "INSDEY1X", "INSDEY2X", "PRVEVY1", "PRVEVY2",
    "TRIEVY1", "TRIEVY2", "MCREVY1", "MCREVY2", "MCDEVY1",
    "MCDEVY2", "VAEVY1", "VAEVY2", "GVAEVY1", "GVAEVY2",
    "GVBEVY1", "GVBEVY2", "GVCEVY1", "GVCEVY2", "UNINSY1",
    "UNINSY2", "INSCOVY1", "INSCOVY2", "INSURCY1", "INSURCY2",
    "TRIST1X", "TRIST2X", "TRIST3X", "TRIST4X", "TRISTY1X",
    "TRISTY2X", "TRIPR1X", "TRIPR2X", "TRIPR3X", "TRIPR4X",
    "TRIPRY1X", "TRIPRY2X", "TRIEX1X", "TRIEX2X", "TRIEX3X",
    "TRIEX4X", "TRIEXY1X", "TRIEXY2X", "TRILI1X", "TRILI2X",
    "TRILI3X", "TRILI4X", "TRILIY1X", "TRILIY2X", "TRICH1X",
    "TRICH2X", "TRICH3X", "TRICH4X", "TRICHY1X", "TRICHY2X",
    "MCRPD1", "MCRPD2", "MCRPD3", "MCRPD4", "MCRPDY1",
    "MCRPDY2", "MCRPD1X", "MCRPD2X", "MCRPD3X", "MCRPD4X",
    "MCRPDY1X", "MCRPDY2X", "MCRPB1", "MCRPB2", "MCRPB3",
    "MCRPB4", "MCRPBY1", "MCRPBY2", "MCRPHO1", "MCRPHO2",
    "MCRPHO3", "MCRPHO4", "MCRPHOY1", "MCRPHOY2", "MCDHMO1",
    "MCDHMO2", "MCDHMO3", "MCDHMO4", "MCDHMOY1", "MCDHMOY2",
    "MCDMC1", "MCDMC2", "MCDMC3", "MCDMC4", "MCDMCY1",
    "MCDMCY2", "PRVHMO1", "PRVHMO2", "PRVHMO3", "PRVHMO4",
    "PRVHMOY1", "PRVHMOY2", "FSAGT1", "FSAGT3", "HASFSA1",
    "HASFSA3", "PFSAMT1", "PFSAMT3", "PREVCOVR", "MORECOVR",
    "TRICR1X", "TRICR2X", "TRICR3X", "TRICR4X", "TRICR5X",
    "TRICRY1X", "TRICRY2X", "TRIAT1X", "TRIAT2X", "TRIAT3X",
    "TRIAT4X", "TRIAT5X", "TRIATY1X", "TRIATY2X", "MCAID1",
    "MCAID2", "MCAID3", "MCAID4", "MCAID5", "MCAIDY1",
    "MCAIDY2", "MCAID1X", "MCAID2X", "MCAID3X", "MCAID4X",
    "MCAID5X", "MCAIDY1X", "MCAIDY2X", "MCARE1", "MCARE2",
    "MCARE3", "MCARE4", "MCARE5", "MCAREY1", "MCAREY2",
    "MCARE1X", "MCARE2X", "MCARE3X", "MCARE4X", "MCARE5X",
    "MCAREY1X", "MCAREY2X", "MCDAT1X", "MCDAT2X", "MCDAT3X",
    "MCDAT4X", "MCDAT5X", "MCDATY1X", "MCDATY2X", "GOVTA1",
    "GOVTA2", "GOVTA3", "GOVTA4", "GOVTA5", "GOVTAY1",
    "GOVTAY2", "GOVAAT1", "GOVAAT2", "GOVAAT3", "GOVAAT4",
    "GOVAAT5", "GOVAATY1", "GOVAATY2", "GOVTB1", "GOVTB2",
    "GOVTB3", "GOVTB4", "GOVTB5", "GOVTBY1", "GOVTBY2",
    "GOVBAT1", "GOVBAT2", "GOVBAT3", "GOVBAT4", "GOVBAT5",
    "GOVBATY1", "GOVBATY2", "GOVTC1", "GOVTC2", "GOVTC3",
    "GOVTC4", "GOVTC5", "GOVTCY1", "GOVTCY2", "GOVCAT1",
    "GOVCAT2", "GOVCAT3", "GOVCAT4", "GOVCAT5", "GOVCATY1",
    "GOVCATY2", "VAPROG1", "VAPROG2", "VAPROG3", "VAPROG4",
    "VAPROG5", "VAPROGY1", "VAPROGY2", "VAPRAT1", "VAPRAT2",
    "VAPRAT3", "VAPRAT4", "VAPRAT5", "VAPRATY1", "VAPRATY2",
    "IHS1", "IHS2", "IHS3", "IHS4", "IHS5", "IHSY1", "IHSY2",
    "IHSAT1", "IHSAT2", "IHSAT3", "IHSAT4", "IHSAT5",
    "IHSATY1", "IHSATY2", "PRIDK1", "PRIDK2", "PRIDK3",
    "PRIDK4", "PRIDK5", "PRIDKY1", "PRIDKY2", "PRIEU1",
    "PRIEU2", "PRIEU3", "PRIEU4", "PRIEU5", "PRIEUY1",
    "PRIEUY2", "PRING1", "PRING2", "PRING3", "PRING4",
    "PRING5", "PRINGY1", "PRINGY2", "PRIOG1", "PRIOG2",
    "PRIOG3", "PRIOG4", "PRIOG5", "PRIOGY1", "PRIOGY2",
    "PRINEO1", "PRINEO2", "PRINEO3", "PRINEO4", "PRINEO5",
    "PRINEOY1", "PRINEOY2", "PRIEUO1", "PRIEUO2", "PRIEUO3",
    "PRIEUO4", "PRIEUO5", "PRIEUOY1", "PRIEUOY2", "PRSTX1",
    "PRSTX2", "PRSTX3", "PRSTX4", "PRSTX5", "PRSTXY1",
    "PRSTXY2", "PRIV1", "PRIV2", "PRIV3", "PRIV4", "PRIV5",
    "PRIVY1", "PRIVY2", "PRIVAT1", "PRIVAT2", "PRIVAT3",
    "PRIVAT4", "PRIVAT5", "PRIVATY1", "PRIVATY2", "PUB1X",
    "PUB2X", "PUB3X", "PUB4X", "PUB5X", "PUBY1X", "PUBY2X",
    "PUBAT1X", "PUBAT2X", "PUBAT3X", "PUBAT4X", "PUBAT5X",
    "PUBATY1X", "PUBATY2X", "VERFLG1", "VERFLG2", "VERFLG3",
    "VERFLG4", "VERFLGY1", "VERFLGY2", "INS1X", "INS2X",
    "INS3X", "INS4X", "INS5X", "INSY1X", "INSY2X", "INSAT1X",
    "INSAT2X", "INSAT3X", "INSAT4X", "INSAT5X", "INSATY1X",
    "INSATY2X", "DENTIN1", "DENTIN2", "DENTIN3", "DENTIN4",
    "DENTIN5", "DNTINS1", "DNTINS3", "DNTINSY1", "DNTINSY2",
    "PMEDIN1", "PMEDIN2", "PMEDIN3", "PMEDIN4", "PMEDIN5",
    "PMDINS1", "PMDINS3", "PMDINSY1", "PMDINSY2", "PROBPY2",
    "PROBPY4", "CRFMPY2", "CRFMPY4", "PYUNBL2", "PYUNBL4",
    "PMEDUP1", "PMEDUP2", "PMEDUP3", "PMEDUP4", "PMEDUP5",
    "PMEDPY1", "PMEDPY2", "PMEDPY3", "PMEDPY4", "PMEDPY5",
    "TOTTCHY1", "TOTTCHY2", "TOTEXPY1", "TOTEXPY2", "TOTSLFY1",
    "TOTSLFY2", "TOTMCRY1", "TOTMCRY2", "TOTMCDY1", "TOTMCDY2",
    "TOTPRVY1", "TOTPRVY2", "TOTVAY1", "TOTVAY2", "TOTTRIY1",
    "TOTTRIY2", "TOTOFDY1", "TOTOFDY2", "TOTSTLY1", "TOTSTLY2",
    "TOTWCPY1", "TOTWCPY2", "TOTOPRY1", "TOTOPUY1", "TOTOSRY1",
    "TOTOSRY2", "TOTPTRY1", "TOTPTRY2", "TOTOTHY1", "TOTOTHY2",
    "OBTOTVY1", "OBTOTVY2", "OBVTCHY1", "OBVTCHY2", "OBVEXPY1",
    "OBVEXPY2", "OBVSLFY1", "OBVSLFY2", "OBVMCRY1", "OBVMCRY2",
    "OBVMCDY1", "OBVMCDY2", "OBVPRVY1", "OBVPRVY2", "OBVVAY1",
    "OBVVAY2", "OBVTRIY1", "OBVTRIY2", "OBVOFDY1", "OBVOFDY2",
    "OBVSTLY1", "OBVSTLY2", "OBVWCPY1", "OBVWCPY2", "OBVOPRY1",
    "OBVOPUY1", "OBVOSRY1", "OBVOSRY2", "OBVPTRY1", "OBVPTRY2",
    "OBVOTHY1", "OBVOTHY2", "OBDRVY1", "OBDRVY2", "OBDTCHY1",
    "OBDTCHY2", "OBDEXPY1", "OBDEXPY2", "OBDSLFY1", "OBDSLFY2",
    "OBDMCRY1", "OBDMCRY2", "OBDMCDY1", "OBDMCDY2", "OBDPRVY1",
    "OBDPRVY2", "OBDVAY1", "OBDVAY2", "OBDTRIY1", "OBDTRIY2",
    "OBDOFDY1", "OBDOFDY2", "OBDSTLY1", "OBDSTLY2", "OBDWCPY1",
    "OBDWCPY2", "OBDOPRY1", "OBDOPUY1", "OBDOSRY1", "OBDOSRY2",
    "OBDPTRY1", "OBDPTRY2", "OBDOTHY1", "OBDOTHY2", "OPTOTVY1",
    "OPTOTVY2", "OPTTCHY1", "OPTTCHY2", "OPTEXPY1", "OPTEXPY2",
    "OPTSLFY1", "OPTSLFY2", "OPTMCRY1", "OPTMCRY2", "OPTMCDY1",
    "OPTMCDY2", "OPTPRVY1", "OPTPRVY2", "OPTVAY1", "OPTVAY2",
    "OPTTRIY1", "OPTTRIY2", "OPTOFDY1", "OPTOFDY2", "OPTSTLY1",
    "OPTSTLY2", "OPTWCPY1", "OPTWCPY2", "OPTOPRY1", "OPTOPUY1",
    "OPTOSRY1", "OPTOSRY2", "OPTPTRY1", "OPTPTRY2", "OPTOTHY1",
    "OPTOTHY2", "OPFTCHY1", "OPFTCHY2", "OPFEXPY1", "OPFEXPY2",
    "OPFSLFY1", "OPFSLFY2", "OPFMCRY1", "OPFMCRY2", "OPFMCDY1",
    "OPFMCDY2", "OPFPRVY1", "OPFPRVY2", "OPFVAY1", "OPFVAY2",
    "OPFTRIY1", "OPFTRIY2", "OPFOFDY1", "OPFOFDY2", "OPFSTLY1",
    "OPFSTLY2", "OPFWCPY1", "OPFWCPY2", "OPFOPRY1", "OPFOPUY1",
    "OPFOSRY1", "OPFOSRY2", "OPFPTRY1", "OPFPTRY2", "OPFOTHY1",
    "OPFOTHY2", "OPDEXPY1", "OPDEXPY2", "OPDTCHY1", "OPDTCHY2",
    "OPDSLFY1", "OPDSLFY2", "OPDMCRY1", "OPDMCRY2", "OPDMCDY1",
    "OPDMCDY2", "OPDPRVY1", "OPDPRVY2", "OPDVAY1", "OPDVAY2",
    "OPDTRIY1", "OPDTRIY2", "OPDOFDY1", "OPDOFDY2", "OPDSTLY1",
    "OPDSTLY2", "OPDWCPY1", "OPDWCPY2", "OPDOPRY1", "OPDOPUY1",
    "OPDOSRY1", "OPDOSRY2", "OPDPTRY1", "OPDPTRY2", "OPDOTHY1",
    "OPDOTHY2", "OPDRVY1", "OPDRVY2", "OPVTCHY1", "OPVTCHY2",
    "OPVEXPY1", "OPVEXPY2", "OPVSLFY1", "OPVSLFY2", "OPVMCRY1",
    "OPVMCRY2", "OPVMCDY1", "OPVMCDY2", "OPVPRVY1", "OPVPRVY2",
    "OPVVAY1", "OPVVAY2", "OPVTRIY1", "OPVTRIY2", "OPVOFDY1",
    "OPVOFDY2", "OPVSTLY1", "OPVSTLY2", "OPVWCPY1", "OPVWCPY2",
    "OPVOPRY1", "OPVOPUY1", "OPVOSRY1", "OPVOSRY2", "OPVPTRY1",
    "OPVPTRY2", "OPVOTHY1", "OPVOTHY2", "OPSEXPY1", "OPSEXPY2",
    "OPSTCHY1", "OPSTCHY2", "OPSSLFY1", "OPSSLFY2", "OPSMCRY1",
    "OPSMCRY2", "OPSMCDY1", "OPSMCDY2", "OPSPRVY1", "OPSPRVY2",
    "OPSVAY1", "OPSVAY2", "OPSTRIY1", "OPSTRIY2", "OPSOFDY1",
    "OPSOFDY2", "OPSSTLY1", "OPSSTLY2", "OPSWCPY1", "OPSWCPY2",
    "OPSOPRY1", "OPSOPUY1", "OPSOSRY1", "OPSOSRY2", "OPSPTRY1",
    "OPSPTRY2", "OPSOTHY1", "OPSOTHY2", "ERTOTY1", "ERTOTY2",
    "ERTTCHY1", "ERTTCHY2", "ERTEXPY1", "ERTEXPY2", "ERTSLFY1",
    "ERTSLFY2", "ERTMCRY1", "ERTMCRY2", "ERTMCDY1", "ERTMCDY2",
    "ERTPRVY1", "ERTPRVY2", "ERTVAY1", "ERTVAY2", "ERTTRIY1",
    "ERTTRIY2", "ERTOFDY1", "ERTOFDY2", "ERTSTLY1", "ERTSTLY2",
    "ERTWCPY1", "ERTWCPY2", "ERTOPRY1", "ERTOPUY1", "ERTOSRY1",
    "ERTOSRY2", "ERTPTRY1", "ERTPTRY2", "ERTOTHY1", "ERTOTHY2",
    "ERFTCHY1", "ERFTCHY2", "ERFEXPY1", "ERFEXPY2", "ERFSLFY1",
    "ERFSLFY2", "ERFMCRY1", "ERFMCRY2", "ERFMCDY1", "ERFMCDY2",
    "ERFPRVY1", "ERFPRVY2", "ERFVAY1", "ERFVAY2", "ERFTRIY1",
    "ERFTRIY2", "ERFOFDY1", "ERFOFDY2", "ERFSTLY1", "ERFSTLY2",
    "ERFWCPY1", "ERFWCPY2", "ERFOPRY1", "ERFOPUY1", "ERFOSRY1",
    "ERFOSRY2", "ERFPTRY1", "ERFPTRY2", "ERFOTHY1", "ERFOTHY2",
    "ERDEXPY1", "ERDEXPY2", "ERDTCHY1", "ERDTCHY2", "ERDSLFY1",
    "ERDSLFY2", "ERDMCRY1", "ERDMCRY2", "ERDMCDY1", "ERDMCDY2",
    "ERDPRVY1", "ERDPRVY2", "ERDVAY1", "ERDVAY2", "ERDTRIY1",
    "ERDTRIY2", "ERDOFDY1", "ERDOFDY2", "ERDSTLY1", "ERDSTLY2",
    "ERDWCPY1", "ERDWCPY2", "ERDOPRY1", "ERDOPUY1", "ERDOSRY1",
    "ERDOSRY2", "ERDPTRY1", "ERDPTRY2", "ERDOTHY1", "ERDOTHY2",
    "IPDISY1", "IPDISY2", "IPTEXPY1", "IPTEXPY2", "IPTTCHY1",
    "IPTTCHY2", "IPTSLFY1", "IPTSLFY2", "IPTMCRY1", "IPTMCRY2",
    "IPTMCDY1", "IPTMCDY2", "IPTPRVY1", "IPTPRVY2", "IPTVAY1",
    "IPTVAY2", "IPTTRIY1", "IPTTRIY2", "IPTOFDY1", "IPTOFDY2",
    "IPTSTLY1", "IPTSTLY2", "IPTWCPY1", "IPTWCPY2", "IPTOPRY1",
    "IPTOPUY1", "IPTOSRY1", "IPTOSRY2", "IPTPTRY1", "IPTPTRY2",
    "IPTOTHY1", "IPTOTHY2", "IPFEXPY1", "IPFEXPY2", "IPFTCHY1",
    "IPFTCHY2", "IPFSLFY1", "IPFSLFY2", "IPFMCRY1", "IPFMCRY2",
    "IPFMCDY1", "IPFMCDY2", "IPFPRVY1", "IPFPRVY2", "IPFVAY1",
    "IPFVAY2", "IPFTRIY1", "IPFTRIY2", "IPFOFDY1", "IPFOFDY2",
    "IPFSTLY1", "IPFSTLY2", "IPFWCPY1", "IPFWCPY2", "IPFOPRY1",
    "IPFOPUY1", "IPFOSRY1", "IPFOSRY2", "IPFPTRY1", "IPFPTRY2",
    "IPFOTHY1", "IPFOTHY2", "IPDEXPY1", "IPDEXPY2", "IPDTCHY1",
    "IPDTCHY2", "IPDSLFY1", "IPDSLFY2", "IPDMCRY1", "IPDMCRY2",
    "IPDMCDY1", "IPDMCDY2", "IPDPRVY1", "IPDPRVY2", "IPDVAY1",
    "IPDVAY2", "IPDTRIY1", "IPDTRIY2", "IPDOFDY1", "IPDOFDY2",
    "IPDSTLY1", "IPDSTLY2", "IPDWCPY1", "IPDWCPY2", "IPDOPRY1",
    "IPDOPUY1", "IPDOSRY1", "IPDOSRY2", "IPDPTRY1", "IPDPTRY2",
    "IPDOTHY1", "IPDOTHY2", "IPNGTDY1", "IPNGTDY2", "DVTOTY1",
    "DVTOTY2", "DVTTCHY1", "DVTTCHY2", "DVTEXPY1", "DVTEXPY2",
    "DVTSLFY1", "DVTSLFY2", "DVTMCRY1", "DVTMCRY2", "DVTMCDY1",
    "DVTMCDY2", "DVTPRVY1", "DVTPRVY2", "DVTVAY1", "DVTVAY2",
    "DVTTRIY1", "DVTTRIY2", "DVTOFDY1", "DVTOFDY2", "DVTSTLY1",
    "DVTSTLY2", "DVTWCPY1", "DVTWCPY2", "DVTOPRY1", "DVTOPUY1",
    "DVTOSRY1", "DVTOSRY2", "DVTPTRY1", "DVTPTRY2", "DVTOTHY1",
    "DVTOTHY2", "HHTOTDY1", "HHTOTDY2", "HHAGDY1", "HHAGDY2",
    "HHATCHY1", "HHATCHY2", "HHAEXPY1", "HHAEXPY2", "HHASLFY1",
    "HHASLFY2", "HHAMCRY1", "HHAMCRY2", "HHAMCDY1", "HHAMCDY2",
    "HHAPRVY1", "HHAPRVY2", "HHAVAY1", "HHAVAY2", "HHATRIY1",
    "HHATRIY2", "HHAOFDY1", "HHAOFDY2", "HHASTLY1", "HHASTLY2",
    "HHAWCPY1", "HHAWCPY2", "HHAOPRY1", "HHAOPUY1", "HHAOSRY1",
    "HHAOSRY2", "HHAPTRY1", "HHAPTRY2", "HHAOTHY1", "HHAOTHY2",
    "HHINDDY1", "HHINDDY2", "HHNTCHY1", "HHNTCHY2", "HHNEXPY1",
    "HHNEXPY2", "HHNSLFY1", "HHNSLFY2", "HHNMCDY1", "HHNMCDY2",
    "HHNMCRY1", "HHNMCRY2", "HHNPRVY1", "HHNPRVY2", "HHNVAY1",
    "HHNVAY2", "HHNTRIY1", "HHNTRIY2", "HHNOFDY1", "HHNOFDY2",
    "HHNSTLY1", "HHNSTLY2", "HHNWCPY1", "HHNWCPY2", "HHNOPRY1",
    "HHNOPUY1", "HHNOSRY1", "HHNOSRY2", "HHNPTRY1", "HHNPTRY2",
    "HHNOTHY1", "HHNOTHY2", "HHINFDY1", "HHINFDY2", "VISEXPY1",
    "VISEXPY2", "VISTCHY1", "VISTCHY2", "VISSLFY1", "VISSLFY2",
    "VISMCRY1", "VISMCRY2", "VISMCDY1", "VISMCDY2", "VISPRVY1",
    "VISPRVY2", "VISVAY1", "VISVAY2", "VISTRIY1", "VISTRIY2",
    "VISOFDY1", "VISOFDY2", "VISSTLY1", "VISSTLY2", "VISWCPY1",
    "VISWCPY2", "VISOPRY1", "VISOPUY1", "VISOSRY1", "VISOSRY2",
    "VISPTRY1", "VISPTRY2", "VISOTHY1", "VISOTHY2", "OTHTCHY1",
    "OTHTCHY2", "OTHEXPY1", "OTHEXPY2", "OTHSLFY1", "OTHSLFY2",
    "OTHMCRY1", "OTHMCRY2", "OTHMCDY1", "OTHMCDY2", "OTHPRVY1",
    "OTHPRVY2", "OTHVAY1", "OTHVAY2", "OTHTRIY1", "OTHTRIY2",
    "OTHOFDY1", "OTHOFDY2", "OTHSTLY1", "OTHSTLY2", "OTHWCPY1",
    "OTHWCPY2", "OTHOPRY1", "OTHOPUY1", "OTHOSRY1", "OTHOSRY2",
    "OTHPTRY1", "OTHPTRY2", "OTHOTHY1", "OTHOTHY2", "RXTOTY1",
    "RXTOTY2", "RXEXPY1", "RXEXPY2", "RXSLFY1", "RXSLFY2",
    "RXMCRY1", "RXMCRY2", "RXMCDY1", "RXMCDY2", "RXPRVY1",
    "RXPRVY2", "RXVAY1", "RXVAY2", "RXTRIY1", "RXTRIY2",
    "RXOFDY1", "RXOFDY2", "RXSTLY1", "RXSTLY2", "RXWCPY1",
    "RXWCPY2", "RXOPRY1", "RXOPUY1", "RXOSRY1", "RXOSRY2",
    "RXPTRY1", "RXPTRY2", "RXOTHY1", "RXOTHY2", "LONGWT",
    "LSAQWT", "VARSTR", "VARPSU")

var_types <- 
  c("n", "n", "c", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "c", "c", "c", "c", "c", "c", "c", "c", "c", "c", "c",
    "n", "n", "n", "n", "c", "c", "c", "c", "c", "c", "c", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "c", "c",
    "c", "c", "c", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "c", "c", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n", "n",
    "n", "n")

var_types <- setNames(var_types, var_names)

# IMPORT ASCII (.dat) file ----------------------------------------------------

h217 <- read_fwf(
  meps_path,
  col_positions = 
    fwf_positions(
      start = pos_start, 
      end   = pos_end, 
      col_names = var_names),
  col_types = var_types)


# OPTIONAL: save as .Rdata file for easier loading ----------------------------
# Run this to save a permanent .Rdata file in the local working directory
#
# save(h217, file = "h217.Rdata")

# -----------------------------------------------------------------------------
# NOTES:
# 
#  1. This program has been tested on R version 3.6.0
#
#  2. This program will create a temporary data frame in R called 'h217'.
#     You must run the 'save' command to permanently save the data to a local
#     folder
# -----------------------------------------------------------------------------